a | 
~9USER = SITE 
| . q 
Bs as — PACKET 168 Sal 
INPUT 6 CARDS FROM CRA , DAN oss a 
TIME aed0 , | : | < 
DATE =77116 TUESDAYs 04/26/77 
q 
| BS700 | 
_*#* MESSAGE OF THE DAY #¥e 
SYSTEM WAS COLD STARTED 4/15/77 USING 4/11/77 BACKUP TAPES LISP 
= THE FORTRAN COMPILER WAS RECONPILED 7 APR 77, REPORT BUGZ TO DAN ROSS, — 
| ee PLEASE USE USER CARDS IN FRONT OF ALL BATCH JOBS OR PACKETS FE M, 
(op SE EASE USE ; tro ament |, 
- WHEN YOU GET TIRED OF THIS MESSAGE = j ” 4 


SUGGEST A BETTER ONEs 


##* BURROUGHS B5700 TSMCP MARK XVIe0+69 AND INTRINSICS MARK XVIe0s00 «++ 


. RUSERS SITE ine! 
?COMPILE LISP/LISP XALGOL LIBRARY 
PXALGOL FILE TAPEs LISP/APTLIB DISK SERTAL 
PDATA CARD bri . inihee 
AtXALGOL/LISP/SITE® 4 BOY 1220 10/08/76 
COC IN CARD DCIXALGOL/LISP= 4 
OKA IN SER LISP APTLIBIXALGOL/LISPe 4 
PBD0168 OUT O11 LINESXALGOL/LISPs 4 
DKA OUT ROM LYSP LISPIXALGOL/LISPs &@ 
MND SS lbeccn, tous . 
TIME FOR XALGOL/LISP= 4 18 1214 IN 1256 
DKA LOK LISP LISPSXALGOL/LISP= 4 
DKA REL LISP APTLIBSxALGOL/LISPS 4 
P8N0168 REL O11 LINE 1874%xXALGOL/LISPa 4 
COC REL CARD DC8XALGOL/LISP= 4 
is 51, |: UO ea ee ae ee 
XALGOL/LISP/SITES GePST® 2:07 EOY | 
FOR XALGOL/LISP# GIPST= 126, 10T= 49s CORE=15360 
 PKT#0168 REMOVED . 


: ; Lee : : i i : : : : : 


eeeeeeveveveee ee 8 ee © © © © @ 6 6 


LABEL. COOOODDDOOLINE © 


alas aka oleh 


OOL77LL6O7COMPILE KLESP/LISP XALGOL LIBRARY 
CUSTOMS Be5700 IPC XALGOL COMPILER MARK XVI.0,00"424 


LISP /LISP 


RRBARBTeSSsSR eg scscs 


BEGIN %8 SEPTEMBER 1969 


1 Bo er it 
% CONSTANT DEFINES 
x 
FILE DATA REMOTE(2210)3 


DEFINE MEMORYROWS @: 1 27# »NOOFPROCESSOPSa44#sSTKSZ=2#3 


REAL LASTUSEDSPACE » XADDReL INKTONILs CARADOR» NEXTTOKENS 
. REAL HASHsPRIQRITYs TKNOsLABTAB? TaXX1exX23 


POINTER CPSARRAY JUNKARRAYCOS0]*STACKLOISTKSZ*0851493 


DEFINE CHReJUNKARRAY[O]4*LEXTREE=HASH#3 
REAL LASTRPIDsSTACKPOSITIONS 


BOOLEAN TRACES 
REAL ATOMUNDEF »NULLIST#ATO®AT 1s AT2eAT Se ATs ATSpATOsATT#RC1eRCOS 
ARRAY SYSMARRAYCO#21, TYPEARRAYCOHLS]3 


ARRAY PROCESSARRAYCOSNOOFPROCESSOPS)3 . 
ARRAY MEMORYLORMEMORYROWS, 0:511)3 


_ ABRAY C1f080), C2LOFOT+C3LOFOI+CHLOIOI, C5L0803,C6r0t0)3 


REAL CURROWS 

DEFINE TYPE = [2ata}#s 
ADDR#(18519)83 

“DEFINE TYPEGARBAGE =0#> 
TYPECONS=1#> 

_TYPELISTS2#¢ 


 TYPEAREAS 3H». 


TYPEFTELD=4#, 
_TYPESYMBa5#» 
TYPELOGICH6#,s 
TYPELINK =7#» 
| _TYPEPROCESS=a#s 
TYPEMONITOR29#5 
‘TYPEGENERAL#=10#» 


TYPETOKEN=1189 


TYPECODE=1183 
_TOKEN ASSIGNMENTS 


‘1 TO 308 ALGOL RETURN ‘LABELS 
100 = ASGN. 
101 = REF 
102 = CAR 
103 = COR 
104 = CONS 
105 = NEWSYMB 
106 = AMTSPACE 
107 = MAKE 
108 = PRINT 


HoHoA hia a non - 


TUESDAY» O4/26/77e 


START OF SEGMENT 


2 


. 


XALGOL /LISP 


12120 PM, 
00001000 T 0000 
RERREDS HE K 
00002000 T 0000 
00003000 T 0006 
00004000 T 0000 
00005000 Tt 0000. 
00006000 T 0003 
00007000 tT 0003 
00008000 T 0003 
00009000 T 0003 
00010000 tT 0007 
00011000 T 0007 
00012000 T 0007 
00013000 T 0007 
00014000 T 0007 
00015000 tT 0010 
00016000 T 0012 
00016030 T 0014 
00016060 T 0045 
00017000 T 0025 
00018000 Tt 0025 
00019000 Tt 0025 
00020000 T 0025 
00021000 T 0025 
00022000 ft 0025 
00023000 T 0025 
00024000 tr 00a5 
00025000 T 0025 
00026000 T 00a5 
00027000 Tt 0025 
00028000 tT 0045 
00029000 tT 0025 
00030000 T 0025 
00031000 7r 0025 
00032000 t 0025 
00033000 T 0025 
00034000 T 00a5 
00035000 T 0025 
00036000 Tt 0025 
00037000 T 0025 
00038000 T 0028. 
00039000 tT 0025_ 
00040000 tT 0025 
00041000 tT 0028 
00042000 T 0028 
00043000 T 0025 
00044000 T 00258 


: : i H : : : , : : ate H 


BE ME DE BRIDE DE BE dE dE DE DE DE dE dE IE dE dE dE DE DE DE dE DE WR ae de ae DE DE DE de de 20 2020 


hal iaieien oot aie 


MAS teex 


109 = INLEX 
110 = GCL 
111 = CREATE 
112 = DELETE 
113.= SUSPEND 
114 -= RESUME 
115 = RETURN 
116 = IDENTITY 
117 = HALT 
ALBoe 
119 = 
120 = TRACE. 
{21-2 EQLtsy 
122 = QUOTE. 
128: ASGNENV 
124 = REFENV 
125 = EXE | 
126 = DEBUG | 
127 -= LOoMObE 
128 = CONSTRUCT 
129 = AREA 
430 = TOKEN 
131 = SINGLESTEP 
132-2 UP 
133.2 OP | 
434 = READ 
135 = 
4136 = LIST 
137 = COND 
138 = FQ . 
139 = ATOM 
140 = BLOCKOP 
141 = NEQ 
242-= 1F 
[43 = NONTERM | 
%144sUSERL 
S445" TAB 
Z146sCOPY 
SLAF HAOD 
 BLSesSus | 
ZL Q9SMyL 
R180 epryv 
*152sNEG 
812. To 376. 3 SPECIAL CHARACTERS 
‘tte s ALTERNATIVE. ‘OP IN BNF INTERPRETER 
‘1000 = RESULT. VARIABLE FOR BASE LANGUAGE 
1001 a LIST FORMAL PARAMETER 
1002 = QUOTED FORMAL PARAMETER 
1003 = QUOTED LIST FORMAL PARAMETER. 
1004 = BASE LANGUAGE INTERPRETER 
1008 = BNF INTERPRETER 
1006 & STRING VARIABLE FOR BNF 
{007 -= QUOTED SYMBOL IN SCANNER 
1008 = SINGLE STEP VARIABLE 


00045000 
00046000 
00047000 
00048000 
00049000 
00050000 
00051000 


00052000 


00053000 
00054000 


00055000 
00056000 
00057000 
00058000 
00059000 
00060000 
00061000 
00062000 
00063000 
00064000 
00065000 
00066000 
00067000 
00068000 


60069000 


00070000 
00071000 
00072000 
00073000 
00074000 
00075000 
00076000 
00077000 
00078000 
00079000 
00079010 


_ 00079020 


00079030 
00079035 
00079040 


08079045. 


00079050 
00079055 


00079060. 


00080000 
00081000 


00082000 


00083000 
00084000 
00085000 
00086000 
00087000 
00688000 
00089000 


00090000 


00091000 
00092000 


T 
T 
T 
T 


T 
T 
T 
T 
T 
T 
T 
T 
T 
t 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
13 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 


00245 
0025 
0025 
0025 
00a5 
0025 
0025 
0025 
0025 
0025 
0025 


0025 
0025 


0025 
0028 
0025 
0025 
0025 
0025 
0025 
00a5 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0045 
0025 


00a5 


0025 
0025 


0025 


0025 
0025 


0025 


0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 


0025. 
0025. 
0025. 


0025 
0025 
0025 


0025 — 


0025 
0028 
0025 
0025 


i : : 
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eeeeereveeeeeeenemwneeeeeeees 


are es ae 


on time 


1009 


= TRACE VARIABLE 

1010 = REMOTe TERMINAL DEVICE 

1044 -= DISK DEVICE 
£012 = # IN BNF ALTERNATIVE 

1043 = LEXUNIT 

1014 = ID. 

10145 = INT 

1016-2 SPCHAR 

1017 = CODE GENERATOR INTERPRETER 
41018 = TREE VARIABLE IN BNF INTERPRETER 
1019-2 N VARIABLE IN BNF INTERPRETER 
PID ROPNUMBER: 

2000 TO 10000 : = LOENTIF ERS 
862144 To $2427 @ USER TOKENS 


: DEFINED SUBROUTINES 


aE FNSCENS£ )SPSCANCLSFNS1 oF) #2 STATSRPSCANCOsOoV4 ME 
DERINE MEM1}SC(IF BOOLEANCM{ ) THEN 


_ MEMORYEOM1).01899320M1),099911,022%23) ELSE 


MEMORYOE(M1).£1999990M1) 50999712 .045823) )#e 


_ STEPSPACE=(LASTUSEDSPACE! SLASTUSEDSPACE¢1 )#> 
ATCATLYSCATOSATID Bs 


TOKENCTOKENY DRC TKNO*TOKENS D> 
AT@MCATOML =CCTEMATOML, TYPE) =TYPELOGIC OR TsTYPESYMB OR TaTYPETOKEN) #, 


_ UELETECDELETEL =BEGIN ASGNCAT2s0ELETE1» ATOMDELETED END#s 
SUSPENDCSUSPEND1)@BEGIN IF REFCAT2*+SUSPEND1) NEQ@ ATOMRESUMED THEN 

-  PRIMERRORC"SPND"sSUSPENDL ELSE ASGNCAT2,SUSPEND1» ATOMSUSPENDED ENDS, 
_ AMTSPACES( COB CMEMORYROWS+14 £1682899])"LASTUSEDSPACE=1)#» 


ATOMUNDZATOMUNDEF &» 
ATOMCARSAT1#s 


ATOMCORSATO#e | 


ATOMASSO=ATORSs 
ATOMPRIORITYSATIM>» 


_ ATOMSUSPENDED@AT{#> 


ATOMRESUMEDSATO#s 
ATGMDELETEDSAT 3#4 


LOGICCLOGICL BMAKECTYPELOGIC*LOGICL)#» 


DECCDECLI=CDECisL jee 
MAKE CMAKE 1» MAKE2 )@(CMAKE2 @CMAKES )£221384) Hs 


QOCOCLIRQUCL QOL) He 


UCmQUC2,0)#, 
INGCINGLISOUCIeINGL Fe 
GCL SQUC42 0) FE 


DEFINE SMEMCSMEML)9QUC65" "RSMEMLC4L$35436) #3 


mere LMEMCLMEML9@QUC7e" "RLMEM10442353361943 
“DEFINE INLEXCENLEXL FIL (150.0 INLEXL Ao INTLXFILCOp 02020) #2 
LOADMODE (LOADMODE LeLOADMODE 2 SILC 2eLQADMODE 1sLOADMODE 2,0) 43 
DEFINE IDCID1eCIDise TYPES TYPECODE AND Ipi.ADDR LSS 10000 
AND IDL.ADOR GEQ@ 2000)#, | . 


_ “inte INTE ac INT{ eTYPESTYPELOGIC) 4s 


NBRCNBRLSCNBRY se TYPESTYPELOQGIC OR CIF NBR1. TYPESTYPEAREA 
THEN CIF REFCATOsNBRL)eADOR FQL 3 THEN TRUE ELSE FALSEVELSE FALSE) )#, 


“SPCHARCSPCHAR1 )8(SPCHAR1 TYPESTYPECODE AND SPCHAR1,ADDR 


LEG 576 AND SPCHARI,ADOR GEQ 512783 


00093000 
00094000 


00095000 


00096000 
00097600 
00098000 
00099000 


00100000 


00101000 
00102000 
00103000 
00103010 
00104000 
00105000 
90106000 


00107000 


00108000 
00109000 
60110000 
00111000 
00112000 
00113000 
00114000 
00115000 


.00116000 


00117000 
00118000 
00119000 
00120000 
00121000 


00122000 
00123000 


00124000 
00125000 
00126000 
00127000 
00128000 
00129000 
00130000 
00131000 
00132000 
00133000 
00134000 
00135000 
00136000 
00137000 
00138000 


00139000 


00140000 
90141000 
00142000 
00143000 


00144000 


00144010 
00144020 


00145000 


00146000 
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0025 
0025 
0025 
0025 
0025 
0025 
0028 
0025 
0025 
0025 
0025 


0025 


0028 
0025 
0025 
0025 


0025 


0025 
0025 
0025 
0025 
0025 


0025 . 


0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0028 


9025 


0025 
0025 
0028 
0025 


0025 


0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 


0025. 


0025 
0025 
0025 
0025 
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we Busitets on 


ai 
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i 


| oe 
% FORWARD PROCEDURE DECLARATIONS 
] 
REAL PROCEDURE TAILCSTRINGXS VALUE STRINGS REAL STRING FORWARDS 
REAL PROCEDURE USERS(F)SREAL F popu ang) 


REAL PROCEDURE USERLCXSREAL X_ SFORWARDS 
REAL PROCEDURE PSCANC I JoXsF D3 REAL, XeFFINTEGER 1y3FORWARDS 


REAL PROCEDURE BNFTREECFISREAL F 3FORWARD? 
PROCEDURE MEMSAVE(XsNe¥)3 


VALUE Na YSARRAY XCOJJREAL No YSFORWARDS 


PROCEDURE UNSAVECXaNeFID)3 
VALUE FIDSARRAY XCOJJREAL NoFIOSFORWARDS 
PROCEDURE GARBAGECOLLECTCQMEMsN)2 

VALUE NJARRAY QMEMCOTSREAL N35 

FORWARD} 


_ REAL PROCEDURE COPYCX)3VALUE XJREAL XJFORWARDS 


PROCEDURE DOTRACECPROCESS)S VALUE PROCESSJREAL PROCESSIFORWARD3 


PROCEDURE EQLISTCX#YI3 VALUE XsYSREAL Xe YS FORWARDS 
_ PROCEDURE PRINTCXIS VALUE XSREAL XJFORWARD; 
PROCEDURE UREADCFILsBUFIIVALUE FILJREAL FILZARRAY BYUFCOJSFORWARDS 


BOOLEAN PROCEDURE EQCXsY3VALUE Xe YSREAL X*Y3FORWARDS 
REAL PROCEDURE LEXFINDSFORWARDS 
REAL PROCEOURE QUCPsY)3 
VALUE PsYSINTEGER P3REAL Y3 
FORWARDS 
PROCEDURE PRIMERROR(AsV)3 
VALUE AsVSREAL As VIFORWARDS 


REAL PROCEDURE CONSCX*sY)S VALUE X*YSREAL Xe YSFORWARDS 


REAL PROCEDURE CARCX)3 VALUE XFREAL X$ FORWARDS 
REAL PROCEDURE CORCX)SVALUE XJREAL XSF ORWARD3 


— PROCEDURE MASGNCAsVISVALUE As VSREAL As VEFORWARDS 


PROCEDURE RESUMECPROCESS)3 VALUE PROCESSSREAL PROCESS#FORWARDS 
PROCEDURE RETURNCPROCE SS+VAL)3 
VALUE PROGESS*# VALIREAL PROCESS» VAL SFORWARD3 


PROCEDURE DEBUGIFORWARDS 


PROCEDURE INTERPS FORWARDS 


PROCEDURE SYSM$FORWARD3 


REAL PROCEDURE CREATE (START »ENVs INTERPRETER» PROCESS) 3” 
VALUE STARTsENVe INTERPRETERs PROCESS} 


__ REAL START» ENVs INTERPRETER» PROCESS3FORWARDS 
PROCEDURE ASGNCX#Y*#Z)3VALUE XsYeZSREAL xe YeZ3FORWARDS 
REAL PROCEDURE NEWSYMBCASSO)S VALUE ASSOJREAL ASSO3FORWARD} 
REAL PROCEDURE REF CXsY)3VALUE X»YSREAL xeY3 


FORWARD; 
REAL PROCEDURE HANGON (XsY)3 

— VALUE Xe#Y3 REAL X#Y3FORWARD3 
REAL PROCEDURE IL (MsCsCMeF)3 
“INTEGER M3 REAL CeCMsFs FORWARD? 
REAL PROCEDURE CHARCPsN)2 _ 
MOINTER P3 INTEGER N3 FORWARDS 


REAL PROCEDURE PMAKECTe#NISVALUE Te NSREAL Te NS FORWARDS 
REAL PROCEDURE DACX)3 VALUE XSREAL XJFORWARD3 


REAL PROCEDURE ADC(X)SVALUE X3REAL XJFORWARD? 
REAL PROCEDURE AR(XsYeZ)3VALUE Xe YeZ3REAL X»YoZ3FORWARDS 


— PROCEDURE APLPNTCX)3VALUE XSREAL XSFORWARD? 
REAL PROCEDURE TAILCSTRING)SVALUE STRINGSREAL STRING? 


BEGIN REAL X3 


00147000 
00148000 
00149000 
00150000 
00151000 
00152000 
00153000 
00154000 
00155000 
00156000 
00157000 
00158000 
00159000 
00160000 
00161000 
00162000 
00163000 
00164000 
00165000 
00166000 
00167000 


00168000 
00169000 


00170000 


00171000 


00172000 
00173000 
00174000 
00175000 
00176000 
00177000 
00178000 
00179000 
00180000 
00181000 
00182000 
00183000 
00184000 
00185000 
00186000 
00187000 
00188000 
06189000 


00190000 


00191000 
00192000 
00193000 


- 001946000 
00195000 


00196000 
00197000 
00197010 
00197020 


00197030 
00197040 


00198000 
00198010 
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0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 


0025 


0025 
0025 
0025 
0025 


0025 


0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 


0025 


0025 
0025 
0025 
0025 
0025 


0025 


0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 


0025 
0028. 
0025 


0025 
0025 
0025 
0025 
0025 
0025 
0025 


0025 
0025. 


0025 
0025 
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IF CARCTAILE SX? SCOR(STRING)).,TYPESTYPEAREA AND NOT NBRC(CAR(X)) THEN 


ASGNCATOsSTRINGs (TAIL S=CONSCUSERS(CARCX))2X))) END3 


REAL PROCEDURE QUCPsY)3 


VALUE PsYSINFEGER PSREAL Y3 


BEGIN OWN INTEGER NSREAL V3 


DEFINE PRCPRI)a(PRI, C412193)#3 
FORMAT FiCTIas™s Abs 16a" » "sAhsl6)3 


INTEGER LoL Ps ALPHA Aj 
LABEL 81,.82,88s8813 

SWITCH PSwlaQ1s82s8B8s82.82.82.82.B23 
GO To PSWtPy3 
BBtN:s03 

VESMAKECTYPELOGIC20)3 


YEa@CONSCLABTASsCONSCYsNULLIST))3 


Pras 


GO TO BB13 
‘BLIQUESATOMUNDS 


VISREFCATOMPRINRITYsY)3 
BBLINssNe13 


— AMSYRVEGS82989973 


pat BEGIN OWN ALPHA ARRAY XCOIN]3 


LABEL (B3,B4,B52B6987»B8s893 
LABEL BiOsQDUMPsMEMDP,MEML DO, QINs QSET3 
INTEGER IeKsIS3 
ALPHA XS} : 
SWITCH ‘SW15B99B4 9855810» QDUMP»MEMDP »MEMLDs QINSQSETS 
G60 To SWEPJ3; . 
Q@SETIKPSLASTUSEDSPACE 4018218) 423 
FOR Is20 STEP 1 UNTIL N 0Q 
XELISaMEMORYECKST) oLITI9T, (Kel), £819)}3 


 LABTABSSCAREXE0), (451233) 3HASHIACARCCOR(xC02,(4512319)3 


60 70 893. 


— QIN' XCOltsVaye4s222t23)3 


GO TO 833 
QDUMPEFOR P2290 STEP 1 UNTIL N DO 


WRITECDATAsFlePs TYPEARRAYECXCP) .CASSAIJoKECPIeC4LS19)>» 


TYPEARRAYEXEP) TYPE ®XCP I, »ADDR)S 


: GO TO 893 
"WEMDPIMEMSAVE(XsNaY)3 GO TO B93 


MEMLOSUNSAVECK a Ne Y23P9893G0 TO B23 
BLOIGARBAGECOLLECTCKaN)3 


_.. LABTABS=CAR(X(03.045923193 
HASH BACARCCOREXEO1, £451231)35¢0 To B93 


BATAENT SA 


a aaa 
B6ITSt=] Div 23 


START oS aa AHERN RK RE 


33S 


START OF SEGMENT 


START OF SEGMENT 


5.18 


0199000 ft 0006 
soonces T 0012 
22 LONG» NEXT Seq 
00201000 T 0025 
00202000 T 0025 
00203000 + 0025 
HEKKEMEHESY 
00204000 T 0000 
00205000 T 0000 
ReEKRRH RE 
10 LONGs NEXT SEG 
00206000 T 0000 
00207000 + 0000 
00208000 T 0000 
00209000 T 0007 
00210000 T 0010 
00211000 T 0010 
00212000 T 0012 
00213000 rT 0014 
00214000 7 0015 
00215000 Tt 0016 
00216000 T 0016 
00217000 T 0018 
00218000 T 0020 
00219000 T 0022 
kk he hee 
00220000 T 0004 
00221000 7 0004 
06222000 T 0004 
00223000 t 0004 
00224000 T° 0004 
08225000 T 0012 
00225010 T 0015 
00225020 tr 0016 
00225030 Tt 0018 
00225031 7 0024 
00225040 7 0029 
00226000 t 0029 
00227000 Tt 0032 
00228000 T 0032 
06229000 T 0034 
00230000 T 0043 
00231000 yt 0053 — 
00232000 T 0054: 
00233000 t 0056 
00235000 tT 0064 
00236000 T 0063 
00237000 T 0065 
00238000 T 0068 
00239000 T 0069 
00240000 tT 0070 
00241000 tT 0074 


START OF SEGMENT 


6 
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I 


IF f LSS 2 THEN GO TO B9 

ELSE IF PREXCI}) GTR PREXCIS)) THEN 
BEGIN XS:2XrIS}3 

XCISTS=xery3_ 

METI s=xS3 

ItsIS3 GO TO B6 END 

ELSE GO TO B93 


BarQUteXC1), t22!23)3 


XCO]taxcOyexr 1362282292313 


. oe 
_YSta 2x13 


WHILE IS LSS N 00 BEGIN 

IF PROXCIS3J) GTR PRCXCIS#1)) 
THEN BEGIN XCLIFSXt 183s 
ItesIS END) 

‘ELSE BEGIN: XELMaxC S419 
ItsIS+f END, 

pereaee ‘END 


te Is. GTR N TREN BEGIN 
NtsNwf 


3 
FOR Kisl STEP 4 UNTIL N 00> 


KCK] esxCko1 33 
IF N EQL O THEN BEGIN 
NtaN¢13 G60 70 B9 END END 


ELSE BEGIN NEeN@LIXCTIISXCISIENDS 


Pta33 GO TO 823. 
BSP; 
BO! PRIORITY?3X€134045!23) END 


END Qu3 


_ PROCEDURE PRIMERROR CAsV); 


VALUE. AsVIREAL AsV3 
BEGIN FORMAT. FICTSERRIM > AGsX1 9 A42 16) 


ae 
% 
x 


~NBITECOATASE Leas TYPEARRAYEV TYPE 16 ¥. ADDR)3 
Atz0/03 . 
END PRIMERRORS 


BASE LANGUAGE 


ROUTINE INTERPRETCPROCESS)« 


INTERPRETER 


00242000 
00243000 
00244000 
06245000 
00246000 
00247000 
00248000 
00249000 | 
09250000 
00251000 
00252000 
- 00253000 
00254000 
00255000 
00256000 
00257000 
00258000 
00259000. 
00260000 
00261000 
00262000 
00263000 
00264000 
00265000 
00266000 
00267000 
00268000 
00269000 
00270000 
00271000 
00272000 
00273000 
00274000 
6 1S 125 LONG, 
4 IS 30 LONG, 


Ss st a st st tt st tt st ss ht 


00275000 T 


00276000 7 
00277000 T 


0072 
0073 
0075 
0077 
0078 
0080 
0084 
0081 
0083 
0086 — 
0086 
0086 
0087 
0088 
0090 
0094 
0095 
0095. 
0098 
0099 
0100 
0104 
0102 
0102 
0103 
0105 
0109 
Oita 
Oil2 
0115 
O1ia 
0119 
0124 
NEXT SEG 
NEXT SEG 


0025 
0025 
0025 


START OF SEGMENT suskeewtwe 
START OF SEGMENT tate eendne 


ars 8 LONGs 
00278000 T 
00279000 T 
00280000 T 
7 1S 14 LONG, 


00281000 T 
00282000 T 
00283000 T 
00284000 T 


NEXT SEG. 


0000 
0012 
00143 
NEXT SEG 


0025 
0025 
0025 
0025 
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C INT12 WHEN STATUS/PROCESS NEQ "SUSPENDED"? 

‘IF STATUS/PROCESS NEQ "RESUMED" THEN DELETECSELF )3 
INSTVALCPROCESS)3 

G0 To INT1 3) 


ROUTINE INSTVALCPROCESS)= 

-COINST3= INSTANEXT/PROCESS; 
NEXT/PROCESS!5 SUCCESSOR/NEXT/PROCESSI) 
ARGVALCINST, PROCESS); 

- RETURNCCALLER/SELF ) 3 DELETECSELF) 33 


-MROUTINE ARGVAL(ARGsPROCESS)= 
—% {TP ATOMCARG) THEN ARG#= ICARG)/ENV/PROCESS ELSE 


2 ARGt= APPLY COPVALCOP/ARG»PROCESS) sARGLIST/ARG»PROCESS)3 


; RETURNCCALLER/SELFeARG)S DELETECSELFDI3 


SROUTINE OPVALCOPsPROCESS) a. 


ce % C IF NOT ATOMCOP) THEN OPt= ARGVALCOPsPROCESS)3 


% IF ATOM OP THEN OPt= ICOP)/MACHINES 


% RETURNCCALLER/SELFsOP)3 DELETECSELF) 33 


z 
ZROUTINE APPLYCROUT INE» ARGLIST»PROCESS )= 
IF ATOMCROUTINE) THEN 
— TRETURNCCALLER/SELF »s PRIMVALCROUTINES - 
> LYISTVALCARGLISTsPROCESS) sPROCESS) 3 DELETE CSELF 25 
ENV@tsPARAPASSC(CFPARA/ROUTINE sMAKEC"CONSTRUCT")> 
ARGLIST»sPROCESS)3 
_RETURNCCALLER/SELF >» CALL CROUTINESENV» PROCESS) 23 
DELETECSELF) 3 


ROUTINE. CALLCROUTINEs ENV» PROCESS) = 
f RESUME (CREATEC START /ROUTINE# ENV» INTERPRE TER/ROUTINE? 
PROCESS) )3 
DELETECSELF) 18 


ROUTINE PARAPASS(FPARA*ENVs ARGLIST »PROCESS)= 
LIF FPARA_NEQ@ "NIL" AND ARGLIST NEQ "NIL" THEN 
IF CARCFPARA) = "UNDEF® THEN . 
CARCCORCFPARA)I/ENVES LISTVALCARGLIST*#PROCESS) ELSE 
Lf CARCFPARA)/ENV#® ARGVAL CCARCARGLIST)»PROCESS)3 
ENVt= PARAPASSC(COR(FPARA)sENV*CORCARGLIST) #PROCESS) J3 
RETURNCCALLER/SELFsENV) 33° 


ROUTINE LISTVALCARGLIST»PROCESS)= 
£ IF ARGLISTa"NIL" THEN 
RETURNCCALLER/SELFs"NIL") ELSE 
Hi Ha teen Sadler Mite eer ritTEeeae 
MISTVALCODRCARGLIST 3 PROCESS?) 3 


” PROCEDURE INTERP? 


BEGIN REAL ARG» ARGLISTs»STRINGsOP*ENV#FPRARAsSAVs TsPROCESSS 


DEFINE ROUTINESOPSS ~ 


DEFINE. GETISCARCARG )#sGETACARC CARGEACORCARG)))#3 


DEFINE. STACKCSTACKS )®SAVERCONSCSTACKLs SAV) #> 


EXITSBEGIN TESCARCSAV)SSAVESCOR(SAV)S 
IF T.eTYPE NEQ TYPECODE THEN PRIMERRORCWEXIT*s T)3 


06285000 
06286000 
00287000 
00288000 
00289000 
00290000 
00291000 
00292000 
00293000 


00294000 


00295000 
00296000 
00297000 
00298000 
00299000 
00300000 


00301000 
00302000 


00303000 
00304000 
00305000 
00306000 
00307000 
00308000 
00309000 
00310000 
00311000 
00312000 
00313000 
00314000 
00315000 
00316000 
00317000 


00318000 


00319000 
00320000 
00321000 
00322000 
00323000 
00324000 
00325000 
08326000 
00327000 
00328000 
00329000 
00330000 
00331000 
08332000 
00333000 
00334000 
00335000 


START OF SEGMENT 


00336000 
00337000 


00338000 
00339000 
00340000 


AA AS a se st a Ht a tt tt tt st a 


0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0028 
0025 
0025 
0045 
0025 
0025 
0025 
0025 
0025 
9025 
0028 
0025 
0025 
0025 
0025 
0025, 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 


0025 


0025 
0025 
0025 
0025 
0025 
0025 
0025 
0025 

Le eee ee 
0000 
0000 
0000 
0000 
0000 
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GO TO RETSWET. ADDRIENDES 
LABEL INTERPRET? INSTVAL»ARGVAL»APPLYs CALL» DPVAL»PARAPASS» 
LISTVAL sPRIMVAL sRETURNVALSINTI »OP dol ds 
Ri sR2eRIPR4 RS eRGeR7eRBeRIPRIOHRILSRL2eRLIeRIdsR15> 
R1IGHRITSRLBe RIDA R209 R21» R2Ae R232 R242 RA5¢R26e R27 oR28eR29eRZ0eR31s 
R32esRIIPRIGPRISHRIGSRI7 PRIBPRIDPRAO SRG R42Q2R43S RAG DRAG» 


ROG sLEND PROT eRGB2RGDSR502RS1 2 R52ARS Ze RI GHRSSeRS62R57S 


SWITCH RETSW2#R{eR2eR3eR4sR5 rROsR7eRBeRIeRLORigesRigeRiseRiaeRiss» 

RUG sRIPsRIBsRIDPR20e RAL eR22sRA3e RAG pRA5gR26e R27 pR28 pRAIsSRIV RIL» 
R32eRIIPRIGSRISeRIGeRZ7 PRIBPRIPHRAD PRAY PRAASRAZPRAGSRASSRAGDRAT FRAG, 
ROIPRSCPRSLAR5SeRSIr RSG eRS5 eR5EOeRS7F 

REAL RC2eRC3eRCGeRCSeRC6eRC7»RCB2RC{O3 

REAL PROCEDURE UNSTCKCSAV)SREAL SAV2 

BEGIN INSTEIES CANCSAN USAW RECORISANTENDE 


‘DEFINE. LVCLVE SeBEGIN STACK CMAKECTYPECODEsLV1 95 


GO TO LISTVALJENDS; 
DEFINE UNSTACKSUNSTCKCSAV)#; 
LABEL BNFINSTVALeBNFEXITVAL»BNFTERMVAL sBNFRETURNVALSs 
BNFNONTERMVAL sWAITRETURNSBNFL 1» BNFL 22 BNFL 33 
REAL INSTsXsVAL3 


DEFINE. STRSCODEC1006)#»SLEXUNIT=CODEC1013)#> 


SID=CODEC1014)#»SINTSCODEC1015) # 
SSPCHAR=CODEC10169#2SQUOTESCODECL22)#» 


— SCGINTHCODE( 1017) #2 TREE=CODE(1018)#>» 
NEGODEC1O19) #e CODEC CODE! eTOKENCCODEL #3 


DEFINE SNBRSCQDECLO20)#3 

BOOLEAN PROGEDURE LOOKiCxsY) s VALUE Xs YSREAL XeY3 

IF CXmSLEXUNITIORCX@SID AND IDCY)) ORCX#SINT AND INTCY)) 
ORCX#SNBR AND NBRCY)ORCXSSSPCHAR AND SPCHARCY)) 


—. ORCXEYIORCX, TYPE EQL TYPELIST) 
ORCx@bODEC101297 THEN LOOKItaTRUE ELSE BOOKLEMFALSE? 


PROCESSssUQ3 


- SAVI=REF CAT?» PROCESS)3 
RC2teMAKECTYPECODEs2)3 


RC3t=MAKE(TYPECODEs 3)3 


RCALSMAKECTYPECODE? 4)3 


RCSt=MAKECTYPECODEs5)3 


ROG E=MAKECTYPECODEs 693 
RC7ReMAKECTYPECODES7)3 
RCOELSMAKECTYPECODEs8)3 

— RCLOPSMAKECTYPECODE? 1093 


EXITS 

INTERPRET?IR1t XCPROCESS) 

IF REF CAT2sPROCESS) NEQ ATOMRESUMED THEN GO TO INTY3 
IF REFCATIsPROCESS) LSS PRIORITY THEN 

BEGIN STACKCRCLISTESQQCPROCESS)3 

“INTLEASGNCAT7Ts PROCESS» SAV} 


PROCESS ?tsUQ3 SAVSEREF CAT? #PROCESS)3 EXIT ENDS 


IF TRACE THEN BEGIN ASGNCAT?sPROCESS»SAV)3 


00341000 
00342000 
00343000 
00344000 
00345000 
00346000 
00347000 
00348000 
00349000 
00350000 
0035000;4 
00351000 
00352000 
00353000 


00354000 
00355000 


00356000 


00357000 
00358000 
00359000 
00360000 
00361000 
00362000 
00363000 
00364000 


00364010 
00364020 | 


00364030 
00364040 
00364050 
00364060 


00365000 
00366000 


00367000 


00368000 


00369000. 


00370000 
00371000 


00372000 - 


00373000 
00374000 
00375000 
00376000 
00377000 
00378000 
00379000 
00380000 
08381000 
00382000 


i ee | SS ee ee) 


ee ee ee 


0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0002 
0009 
000¢ 
003, 
0031 
0034 


0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
0037 
0047 
0063 
0065 


0075 
0077 
0079 
0080 


0082 


0084 
0086 
0087 
0089 
0094 


0093 


0100 
0104 
0103 
0104 


0108, 
0109 


0119 
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POTRACECPROCESS) ENDs 
—STACKERCL)3 
TF: (OP; =REF CATS PROCESS) )#TOKENC1004) THEN GO TO INSTVAL3 


IF OPsTOKENC1005) THEN GO TO BNFINSTVAL3 


TESONCAT LE CSAVERPMARES T¥PECONS»ONY +BROCESS ) 


GO TO CALLS. 
INSTVALS % (PROCESS I@ARG 
ARGIS®REF CAT3sPROCESS)3 
ASGNCAT3»PROCESSsCORCARG) D3 
IF ARGsNULLIST THEN GO TG RETURNVALS 
ARG? =CARCARG)3 
STACKCTOKENC27293G0 TO ARGVALSR279 
ASGNCTOKENCS000) sREF CATS» PROCESS 3s ARG) 5 


EXITS 
ARGVAL! RCARGs PROCESS )=ARG 

IF: ATOMCARG) THEN. ARG? SREF (ARG» REF CATG,PROCESS) ELSE 
BEGIN STACKCCORCARG))3 


OP ssCARCARG)3 


STACKCRC2)3GO0 TO OPVALsR28 
ARGLIST?t=UNSTACK3 


GO TO APPLY END EXIT3 
APPLY! ZCOP,ARGLIST sPROCESS) ARG 


IF ROUTINE. _TYPESTYPECODE THEN GO TO PRYMVAL3 
FRPARAtGREF CAT{sROUTINE)3 
ENVESPMAKE(CTYPECONSs0)3 

STACKCROUTINE 93 

STACKCRC3)3G0 TO PARAPASSS R31 

ROUTINE SUNSTACK} 

$60 TO CA 


LL3: 
CALL Zc OPFENV» PROCESS = ARG 


ASGNCAT7sPROCESS*SAV)3 


PROCESS CREATE CREF (AT2* ROUTINE) s#ENVeREF CAT 3+ ROUTINE) PROCESS} 


R3OSASGNCAT2sPROCESSs ATOMRESUMED D3 
GO TO INTERPRETS _ 
ROLIF REFCATSsPROCESS)=CODEC1005) THEN SBNFINT 


BEGIN VALIaUNSTACKSGO TO BNFRETURNVAL END} 


ARGISUNSTACK} 
EXITS . 


OPVALS £COP»PROCESS234RG 


IF ATOMCOP) THEN GO TO ee 
BEGIN 


 ARGEsOP3 


a. ra ARGVALS Ras 
OP ssARG ENDS 
‘OPLEEXTTS. 


 PARAPASS! SC FRARAsENVsARGLIST» PROCESS) ENV 


IF FPARA NEQ@ NULLIST THEN IF ARGLIST NEO NULUEST THEN 
IF CARCFRARA) mATOMUNDEF THEN 


BEGIN STACKCENV)SSTACK(CARCCDORCFPRARA)) )3 


STACKERC5)3GO0 TO LISTVALSR5! 
ASGNCUNSTACKsUNSTACKsARGIEND ELSE 


BEGIN STACKCFRARA)ISTACKCENV) SSTACKCCORCARGLIST) )3 


ARGEBCARCARGLIST)3} 


-- STACKGRC6)3G0 TO ARGVALSR6!. 


ARGLISTS#UNSTACKSENV! SUNSTACKSFPARAS SUNSTACKS 
ASGNCCARCFPRARA) ss ENVs ARGS 


06383000 
00384000 
00385000 
00386000 


‘00387000 


00388000 
00389000 
06390000 
00391000 
00392000 
00393000 
00394000 
00395000 
08396000 
00397000 
08398000 
00399000 
00400000 
00401000 
00402000 
00403000 
00404000 


00405000 — 


00406000 
00407000 
00408000 
00409000 
00410000 
00411000 
00412000 
00413000 
00413010 
00414000 
00415000 
00416000 
00417000 
00418000 
00419000 
00420000 
00421000 


00422000 


00423000 
00424000 
00425000 
00426000 


00427000 


00428000 
00429000 
00430000 
00431000 
00432000 


00433000 


00434000 
00435000 
06436000 
00437000 
00438000 


a a a ts a st st 9g 4 Ht 4) st et a st a tt 


0121 
0122 
0124 


o127 


0136 
0133 
0135 
0135 
0136 
0138 
0139 
0140 
0144 
014 

Ose 
0154 
04460 
0164 
0165 
0168 
0169 
0177 
0178 
0179 
0184 
0182 
0184 
0488 
0189 
0189 
0190 
0194 
0194 
0196 
0196 
0199 
0204 
0203 
0214 
0211 
0215 
0215 
0216 
0220 


0220 


0228 
0229 
0234 
0232 
0237 
Q244 
0244 


0249 


0254 
0253 
0258 
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FRARAMSCORCFPARA)SGO TO PARAPASSSEND3 
EXITS 
LISTVAL? XCARGLIST#PROCESS)=ARG 


_IF_ARGLIST NEQ NULLIST THEN 
BEGIN STACKCCORCARGLIST) )SARGSSCARCARGLIST)3 


STACKCRC7)3GO TO ARGVALIR?S 

ARGLISTSSUNSTACKSSTACKCARG)3 
STACK(RC8)3GO TO LISTVAL3RA! 
ARG teCONSCUNSTACKs ARG )3 

END ELSE ARG##ARGLISTS EXITS 


-RETURNVAL!? XCPROCESS) 


IF COPt#REF CATS sPROCESS) NEQ ATOMUNDEF THEN 
BEGIN ARGIta@REFCTOKENC1000)sREFCAT4sPROCESS) D3 
RETURNCOPs ARG JENDS 
DELETE CPROCESS)3GO TO INTL 3 
BNFINSTVAL! %CPROCESS) 
ASGNCAT3sPROCESSsCORCCINST&=REF CAT3#PROCESS))))3— 
IF INST=NULLIST THEN GO TO BNFEXITVAL ELSE 
TF ATOMCCARGSaCARCINST))) THEN GO TO BNFTERMVAL ELSE 
GO TO BNFNONTERMVAL 3 


BNFEXITVALt &%CPROCESS) 


SUSPENDCPROCESS 33 RETURN( COPY (REF CAT6sPROCESS) )»PROCESS)3 
ASGNCATSsPROCESSsSCGINTIS EXITS 


BNFTERMVAL! SCARGsPROCESS) 
XtTHCARCCSTRINGISREF CSTR» CENVESREF CAT4sPROCESS)))))5 

IF ARGsSLEXUNTT THEN GO TO BNFLI3 

If ARGsSID THEN GO TO CIF In(X) THEN BNFL1 ELSE BNFL2)3 

IF ARG=SINT THEN GO TO CIF INTCX) THEN BNFL1 ELSE BNFL2)3 

IF ARGsSSPCHAR THEN GO TO CIF SPCHARCX) THEN BNFL1 ELSE BNFL2)3 


“TR ARGeSNBR THEN GO TOCIF NBRCX? THEN @NFL1 ELSE BNFL2)3 


IF ARGsCOPtaCQDEC117)) THEN GO TO PRIMVAL3 
IF ARGeCODEC1012) THEN GO TO BNFEXITVALS 

IF XsARG THEN 

ASGNCSTReENVsTAILCSTRING)) ELSE-GO TO BNFL23 
EXITS 


BNFL1It INST?SCONS CSQUOTEsCONSCX*#NULLIST))3 


X PeCREATECCONSCINST sNULLIST ) »PMAKECTYPECONSs0)sSCGINT»PROCESS)3 
ASGNCSTReENVeTAILOSTRING) 3 _ 
ASGNCTREEs ENVs CONS(X+REFCTREESENV)) 03 
_ASGNONSENVsREFCNSENV) +1 SEXITS 


 BNFL2IDELETECPROCESS)3 EXIT} 


BNFRETURNVAL! X¢(PROCESSsVAL) 


__ASGNCAT4SsPROCESSsENVE=COPYCREF CAT4SsPROCESS)) 3 


ASGNCTREESENVsCONSCVAL REF CTREEPENV) 23 
ASGNCSTReENVaREFPCSTReREF CAT4s VAL) ) 23 


ASGNCNSENVeREPCNSENV) 4403 EXITS 


BNFNONTERMVALS SCARGsPROCESS) 
IF CARCARG) NEQ CODEC118) THEN PRIMERRORC"BNF ts ARG)I 


- XPRNULLISTIENVESREFCATS*PROCESS)3 
— ARGLIST1@CDRCARG)3 


WHILE ARGLIST NE@ NULLIST pO 
IF LOOKICCARCCARCARGLIST))sCARCREFCSTRsENV))) THEN 
BEGIN ENVIsCOPYCENV)3 


00439000 
00440000 
00441000 
00442000 
00443000 
06444000 
00445000 
00446000 
00447000 
00448000 
00449000 
00450000 
00451000 
00452000 
00453000 
00454000 
00455000 
00486000 


00457000 


00458000 
00459000 
06460000 
00461000 
00462000 
00463000 
00464000 


00465000 


00466000 
00467000 


00468000 


00469000 © 


00469010 
08470000 
00471000 
00472000 


00473000 


08474000 
00475000 
06476000 
00477000 


(00478000. 


00479000 


00480000 


00481000 
00482000 
00484000 
00485000 


00486000 


00487000 


00488000 


00489000 


00490000 


00491000 
06492000 
00493000 
00493010 
00494000 


HAHAHAHAHAHA st tH A at Ht a st tt tt st Ht Ht Ht HH 


0260 
0264 
0269 
0270 
0270 
0274 
0278 
02814 
0284 
0286 
0298 
0296 
0298 


0304 


0302 
0305 
0305 
0308 
0308 
0314 
0315 
0315 
0315 
0323 
0332 
0332 
0333 
0337 
0339 
0349 
0356 


0366 


0380 
0382 


Q384 
0385 


0387 
0395 
0398 
0402 
0405 
0408 
0419 


0428 


0428 
0429 


0432 


0439 
0443 


0454 


0454 


0455 


0458 
0460 
0464 


0443 


0467 


e® ee @6h6Uh8hUMOlClCUMOMCUO 


@eeeeeeeeese§ee*s* *# @ 


e 98 


t 
i 

i 

' 

i 


i 


Pawar Business Sores, ac. av 12 
eee . é f F ¥ F : : MiGiet eet | ‘ eet fot Hee : st ce : 
i hes i i i i 1 eS i i i i i : 
H 3 : . - : i if i t : 7 i i : 


j 


{ 
i 
ge 
t 


{ 


ASGNCTREEsENVaNULLIST)3 
ASGNONSENVSATO)3 
XP4CONSC CREATE CCARCARGLIST) sENVeCODE (1005) » PROCESS) 0X3 
ARGLIST?3CBRCARGLIST) ENO ELSE ARGLISTHSCORCARGLIST) 3 
GO TO: WAT TRETURNE, 


WATTRETURN! %CX 


WHILE xX NEQ NOCLIST po 
BEGIN RESUMECCAR(CX))3 X#SCDRCX) ENDS 
GB TO INT13 


PRIMVAL!A SCOPSARGLISTs PROCESS )SARG. 


CASE ROUTINE sADDR#100 OF BEGIN 
IF ATOMCCARCARGLIST)) THEN % ASGNsCODE 100 
BEGIN STACKCCARCARGLISTI)3 ARGLISTtSCHORCARGLIST)3 
LVC4LISR4LIASGNCUNSTACK sGETLs ARGESGET) END ELSE 

BEGIN LVC11L)SRILPASGNCGETIsGETs CARGESGETIIENDS ZASGN=CODELO0 
IP _ATOMCCARCARGLIST)) THEN & REFaCOOE 101 | 
BEGIN STACKCCARCARGLIST))sARGLIST#H#CORCARGLIST)3 

LVCO2)3R42UARGPSREF CUNSTACKsGETL) END ELSE 


BEGIN LyCL2)sRIZEARGISREFCGET1,GET)ENDS SREFS=CODE101 


BEGIN LVC133R13FARGISCARC(GETIIENDS SCARBCODE 102 
BEGIN LVC14)sRISTARGIRCORCGETLIENDS RCORSCODELO3 


BEGIN LVC1S SRISSARGISCONS(GETI>GETIENDS ZCONS@CODE 104 


BEGIN LVC1LO)JRIGEARGISNEWSYMBC(GETIQENDS SNEWSYMB 
ARGH=AMTSPACE) | SAMTSPACE 

BEGIN LVCI7)3RI7TSARGESPMAKECGETL e TYPE ®GET ENDS SMAKE 
BEGIN LVC1B)SRIBIPRINTCCARGS3GET1) ENDS SPRINT 
BEGIN LVCLOFRIDIARGERINLEX(CGETLIENDS SINLEX 

BEGIN SUSPEND(C PROCESS )JRESUMECPROCESS)3GCL3 

PROCESS? SUQJARGHERAMTSPACE ENDS x GCL 

BEGIN LVC20)2R20SARGIESCREATE(GETIsGETsGET»GET ENDS SCREATE 
BEGIN LvVC21)3R218 DELETE CGETL FS ARGEBSATOMUNDEF ENDS ZDELETE 

BEGIN LVC22)3R22t ARGISGETL; SUSPENDCARGIENO? ZSUSPEND 

BEGIN LVC23)SR23tRESUME( CARG?=GET4) END} *RESUME 


BEGIN LVC24)SRQGtRETURNCGETI s CARGSSGET) ENDS ZRETURNSCODELIS 


BEGIN LVC25)3RA51ARGESGETL ENDS *SIDENTITYSCODE116 
BEGIN SUSPENDCPROCESS)7SMEMC"RERUNI™) # GO TO LEND ENDFXHALY = CODE 11 


PRIMERROR("C118"sPROCESSSZRESERVED FOR CODE118 
PRIMERRORC("C1L9%ePROCESS)IZRESERVED FOR CODE119 


BEGIN LV¢€3395R332ASGN(TOKEN( 1009) 2REFCAT4s PROCESS)» 
CARG?SGETIIENDZ % TRACESCQDE120 
BEGIN LVC26)3R26UEQLISTCGET1s CARGSRGET) ENDS SEQLIST 
ARGP*=CARCARGLIST)3 BQUOTESCODE122 
IF ATOMCCARCARGLIST)) THEN % ASGNENVSCODE 123 
BEGIN STACKCCARCARGLIST))3 ARGLIST#SCDRCARGLIST)3 
LVCG3SRAITASGNCUNSTACKSREFCATGsPROCESS) + CARG§eGETL)9) END ELSE 


BEGIN Lv(28)sR28tASGNCGET1 REF CATAsPROCESS)s CARG?=GET) JEND3 SASGNENVSCODE 
“TE ATOMCCARCARGLIST)) THEN %REFENVSCODE 124 : 


BEGIN STACKCCARCARGLIST))3 ARGLISTISCORCARGLIST)3 
LVCOG)FSRGGTARGSEBREFCUNSTACKsREFCAT4sPROCESS)) END ELSE 


BEGIN LvC29)JR29RARGISREFCGETI»sREF CATS» PROCESS) ENDS SREFENVSCODEL24 


BEGIN LVC30)sR30SARGIZGETIIGO TO ARGVAL ENDS SExEscodE1as 


oP EBUEL MDEBUGACOQODEL26 


BEGIN LVCA9)FRAGTARGISLOADMODECGETLsGET) ENDS %LOMODESL27 


ARGESPMAKECTYPECONS#0)3 SCONSTRUCTACODE128 
- BEGIN LVCBLISR3LEARGS=PMAKE (TYPEAREASGETL END? 


ZAREA = CODE129 
BEGIN LV(C48)3R4BSARGIZTOKENCGETI«¢ADOR) ENDS STOKEN=CODE.- 130 


00495000 
00496000 
00497000 
00498000 
00499000 
00500000 
00501000 
08502000 
00503000 


‘00504000 


00505000 


00506000 


00507000 
00508000 
00509000 
00840000 
06511000 


00512000 
00513000 
00514000 


00515000 
00516000 
00517000 
00518000 


00519000 


00520000 
08521000 


00522000 
00522010 
00523000 
00524000 
08525000 


00526000 


00527000 


00528000 


00529000 


00530000 
00531000 
00532000 
06533000 


00534000 


00535000 
00536000 
00537000 
00538000 
00539000 
00540000 
00541000 
00542000 
00543000 
00544000 


00545000 
08546000 © 
(00547000 


00848000 
00849000 
00550000 


sd st st A Ht tt tt st va tt tH 


0469 
0474 
0472 
0476 


0482 


0483 
0484 
0485 
0488 
0488 
0489 
0490 
0495 
0498 
0506 
0516 


0521 ~~ 


0524 
0534 
0539 
OS44 
0550 
0558 
05463 


0567 


0574 
0580 
0592 
0600 


0605 


0616 
0623 
0633 
0639 
0647 
0654 
0662 
0664 
0665 
0673 
0676 
0683 
0684 
0689 


06928 


0700 


0709 


0713 


O747 
0723 


0730 


0736 


0737 
0753 


0755 


0760 
0760 
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BEGIN LVC32)3R32"ASGNCTOKEN(1008)sREFCAT4sP 


CARGISGETL)IENDS % SINGLESTEPSCODE131 
BEGIN ASGNCATL» PROCESS »REFCATIs PROCESS) #193 
ARG?SATOMUNDEF ENDS %UPSCODE132 
‘BEGIN ASGNC ATL, PROCESS» REF CATL+PROCESS m1 )5 
ARGtaaTOMUNDEF. ENDS %DPSCODE1 33 


ROCESS)» 


S4BEGIN LVC34)SR348UREAD( CARGESGETL) ENDS ZREADRCODE 134 


3% RESERVED FOR CODE 135 
GO TO LISTVAL3 % LISTSCODE 136 


BEGIN STACKCCORCARGLIST))3 ARGHSCARCARGLIST)4 ZSCONDSCODE 137 
STACK¢TOKENC36))#G0 TO ARGVALSR36tARGLISTSSUNSTACKS 


IF ARG.sTYPESTYPELOGIC. THEN 


BEGIN ARGta(TF BOOLEANCARG) THEN CARCARGLIST) ELSE REFCAT2sARGLIST))3 


GO TO ARGVAL END ELSE ARG?:sATOMUNDEF END 


} 


BEGIN LVC37)sR378ARGISCIF EQCGETL»GET) THEN AT(524287) 


_ ELSE ATO) END3 % EQ*CODE 138 
BEGIN LVC 38) IRISUARGISGETIZ x ATOMBCODE 1 
ARGIiSC(IF ATOMCARG)THEN AT(524287) ELSE ATO 


PROCESS) PROCESS); 
GO TO R39 END 3 .% BLOCKOPSCODE 140 
BEGIN LVC4O)SR4OSARGISCIF EQCGETL*GET) THE 
ELSE ATC524287)) ENDS % NEGSCODE 1414 


STACKCTOKENC4S))SG0 TO ARGVALSR45SARGLIST! 

IF BOOLEANCARG) THEN ASGNCAT3sPROCESS» ARGL 

BEGIN ENVERREFCAT4Ss PROCESS) $ ZNONTERM@CODEL4 
ASGNCSTRs ENVe ATODS 

- BNFLSSIF CARGISREFCNSENV))eADOR GTR O THEN 


39 
> END3 


N ATO 


SUNSTACK3 
IST) ENDS 
3 


BEGIN PROCESS tsCREATECARGLISTs»REFCAT4»PROCESS )sREF CATS» 


BEGIN STACKCCARCCORCARGLIST)))3 ARGISCARCARGLISTIZZIFSCODE 142 


BEGIN: ASGNCNs ENVs ARG=1) 3 ASGN(STR»ENVSREF(STReENV 4195 


_ASGNCAT6s ARG?eREFCARGs REF CTREE* ENV) )» PROC 
STACK CCODEC 46) )JRESUMEC ARG) 5 
GQ TO INTIsR4e3 


_ENVESREF CAT4s# PROCESS )3 


NSGNEREFC STREENV ) #ENVs ARG) 3GO TO BNFL3 EN 
ARGItaREFCATL, ENV )3 


~ ASGNCTREESENVsATOMUNDEF D3 


ASGNCSTRe ENVs ATOMUNDEF )3 


ASGNEN»SENVsATOMUNDEF) END NONTERM 
; MBSR EN’ EVGA? SeRaTT ARG I SUSE 


ARGISLABTABS  SLTABSCODE 145 


BEGIN LVCS0)JRSO8ARGISCOPY(GET1) ENDS ZCOPY=CODE 146 
BEGIN LVCS1)IRSLIARGIHSARCOSGETI*GET) ENDS 


BEGIN LVCS2)3RSZEARGS=AR(1,GETL*GET) END 
BEGIN LVCS3)IRSASARGSSARC2sGETI*GET) ENDS 
_BEGIN LVC54)3RS4tARGI=ARC3,GETI*GET) END} 


BEGIN LVC55)IRSStARG?sARC4,GETI2GET) ENDS 
BEGIN LVCS6)ERSOEARGISARC2sGET12AN("1)2) ENDS ZNEGSCODE 152 
BEGIN LVCS7ISRS7RARGSSIF LOOKICGETIisGET) THEN AT(524287) 
% LOOKLe2CODE 153 


ELSE ATO END 
END CASE STATEMENTS 


EXIT 


oT TL A EANGAGS LP ROGESS SAND) DOTRACE RRUCeOe): 


R1Os:R35:R34s % THESE ARE TO BE LATER MOVED 
LENDEXk 1 tsPROCESS’ END INTERPS 


ESS)3 


D3 


“RADDSCODE 


XSUBSCODE 
ZMULSCODE 
ZDIV=CODE 
%EX eCODE 


NDtGETID ENDS%USERLSCODE 144 


147 


148 
149 


150 


154 


00551000 
00552000 
00553000 
00554000 
00555000 
00556000 
00857000 
00558000 


00559000 © 


00560000 
00561000 
00562000 
00563000 
00564000 
00565000 
00566000 
00567000 
00568000 
00569000 
00570000 
00571000 
00572000 
00573000 
00574000 
00575000 


00576000 © 


00577000 
08577050 
00578000 
00579000 
00579050 
00580000 
00581000 


00582000 
00583000 


00583050 
08584000 


00585000 


00586000 
00586010 


06586020 
00586030 


00586035 
00586040. 


00586045 
00586050 
00586055 
00586060 
00586070 
00586080 
08587000 


START OF SEGMENT 


10 18 


54 LONGs NEXT SEG 


00588000 
00589000 
00590000 
00591000 


0766 
0772 
0774 
0776 
O77? 
0780 
0784 
0784 
0784 
0782 
0785 
0789 
0794 
0795 
0797 
0804 
0807. 
0812 
O819 
0821 
0822 
0824 
0834 
0834 
0837 
0843 
0846 
0847 
0849 
0853 
0859 
0863 
0865 
0867 
0868 
0874 
0873 
0874 
0876 
0878 
0887 
08688 
0894 
0902 
0910 
0918. 
0926. 
0934 
0944 
0948 
0984 


KeeWKN KES 


re ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee ee eee ee ee ee ee ee ee ee 


y O95, 
T O958 
T 0964 
Y 0964 
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- PROCEDURE GARBAGECOLLECTCQMEM,N) 3 
_ VALUE NZARRAY QMEMCOISREAL NS 


BEGIN REAL RPswWPeX»XADDR* BASES TYPs I3 


ABEL Lael 2ol deh Gel Solas 
ARRAY TMEMCOSMEMORYROWS 20851133 


DEFINE  CRCCP1,CP22)a£CONSTRUCT PROCESSING 


_ BEGIN IF (Xt=MCXADDR}).TYPE NEQ TYPEGARBAGE THEN 


BEGIN TMASGN(CWPSSWP+1 2 X)3 
MASGNCS ADDR» MAKE CTYPEGARBAGE pwP))3 


 CPACRPSMAKECXADOR, TYPE*sWP)*sCP2)END ELSE 
CPACRPeMAKECXADDR «TYPE 2X) 2 CP2)END EE 


DEFINE LPCLPLeLP2)5 

BEGIN IF (XtSCARCXADDR))eTYPE = TYPEGARBAGE THEN 
LPICRPsMAKECTYPELISTsxX )sLP2ELSE 

IF CARADDR=NULLIST THEN LPACRPsNULLIST»LP2IELSE 


_.. BEGIN LPL CRP» MAKECTYPELISTs (WRERWP 41) of P2)#> 
 LEPCLLP1)STMASGNCWPaX)3 
MASGNCCARADDR*MAKECTYPEGARBAGE »WP))5 


XABOR#acOR(XADOR)3 - | 
Ir CXPSCARCKXADDR) eTYPE NEQ@ TYPEGARBAGE THEN 
TF CARADDR NEQ@ NULLIST THEN 


BEGIN WPSeWP415G0 TO LLP1 END ELSE 


TMASGNCCWPEsWP41) oL INK TONILIELSE 


“TMASGNCCWPtaWP 41) »MAKECTYPELINK»s X) END - END #3 
 QEFINE TMCTMLISCIF BOOLEANCTM1) THEN a 
TMEMCCTML), £18:91),¢7TM1).09#9]), C22t2aye_Lse 


TMEMECTML), C1829) 9CTM1), £949)1.045%231)#, 


QtQ1JsCIF BOOLEANCQL) THEN QMEMEQ1+0108403).022:233 ELSE 


QMEMLO1,01081031,0453231)#, 


_TMASGNCTMASGN1s TMASGN2 )STACTMASGN1sTMASGN2s TMEM) #> 
— QASGNCQASGN1*QASGN2)3QA(QASGN1»QASGN2 2QMEM) #3 
PROCEDURE TACApVsMEVALUE AsV3REAL AsV3ARRAY MEO2023 


IF BOOLEANCA) THEN MEA.CI8I9I5A, BOO AUeEse te] tay ELSE 
MOMs PAD a ake C9t9II. Lasta3jiavs 


PROCEDURE QACAsVeM)SVALUE AsVSREAL As VS ARRAY MEOI3 
AE vEBH1O04, THEN MCA, EAGHIOLI 6 Eaet2dieny ELSE 


MEA Ct ee ta5t2adtevs 


ee eee ee WORDS RECOVERED s"sT6s" WORDS IN USE »")3 


WP tos 
% COPY FROM M TO TM UPSIDE DOWN USING @ 


FOR RPteN+N+1 STEP #1 UNTIL O 00 


9 1S 


12 18 


977 LONG, NEXT SEG 


00592000 


T 


0025 


00593000 rt 0025 


00894000 


START OF SEGMENT 


00595000 
00596000 
00597000 
08598000 
00599000 
00600000 
00601000 
00602000 
00603000 
008604000 
00605000 
00606000 
06607000 
00608000 
00609000 
00610000 
00611000 
00612000 


00613000 
00614000 


00615000 
00616000 


00617000 


00618000 
00619000 


00620000 
00621000 


00622000 
00623000 


00624000 
00625000 


00626000 
00627000 


00628000 


00629000 


00630000 
00631000 
00632000 


T 


Seo 2 2 


— 


44 


T 


bs 
T 
Tt 


a tH tt st a tt 


0025 


0000 
0000 


0002 


0009 
0002 


0002 
0002 


0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 


0002 


0002 
0002 
0002 
0002 
0002 


0002 


0002 
0002 
0002 
0002 


0002. 
0002 


0002 
0008 


0013 


0013 
0016 


0020 


START. OF SEGMENT «xaatetuwee 
12 LONGs NEXT SEG 


0020 
0024 
0021 


@ 


11 


12 
11 


€ 


¢ 
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CASE CXADDR?=QCRP}).TYPE OF 


BEGIN PRIMERRORC"GCL1%s XADDOR) § ¥GARBAGE 
LitCPCQAsQMEM)}$ XCONSTRUCT 
LPCQASQOMEM)SL2ELLPCL2)3%L IST 

LStrP CxteMEXADORI] «TYPESTYPEGARBAGE THEN ZAREA 


GASGNCRPsMAKECXADDRe TYPE *X) ELSE 
BEGIN WPteWPets 


FOR Ytsyx,ADOR STEP #1 UNTIL 0 DO 
TMASGNCWP4+I»>MECXADOR®II3)3 


GASGNCRPe MAKE CKADDRe TYPES WP) 23 


MASGNCXADDR» MAKE CTYPEGARBAGE » WP) )5 
WPtaWwPex. ADDR END? - 


PRIMERROR("GCL2%sXADOR)3 BFIELO 


IF XADBR NEQ ATOMUNDEF THEN GO TO Las %SYMBOL 
4 SLOGIC 


PRIMERROR("GCL3"*XADOR)S %LINK 
“GO TO LSS PROCESS — 


GO TO L53 SMONITOR 
GO TO LS53 SGENERAL 
3 STOKEN 


‘PRIMERRORC"GCL4%sXADDRI3 XTPL2 
-PRIMERRORC"GCLS%s XADDR?E 4TP13 
PRIMERRORC"GCL 6's XADDR) 3 4TP14 


PRIMERROR("GCL7%*XADDR)S &TP15 
END CASE STATEMENT3 


_ SCOPY FROM M To TM UPSIDE DOWN USING TM 
FOR RPtei STEP 4 UNTIL WPDO 

CASE CUADDREWTMERP) ) ¢ TYPE OF BEGIN 
PRIMERRORC"GCLS™sXADDR)3 ZGARBAGE 


L3tCPCTAsTMEM)S ZCONSTRUCT 
LPCTAsTMEMISLAELLPCL4 SRL EST 
LOtIF CxteMCXADORJ) eTYPESTYPEGARBAGE THEN ZAREA 


~TMASGNCRP» MAKE (XADOR TYPE sX) JELSE 


BEGIN WPtswP+l)- 


_ FOR Itsy,ADDR STEP *4 UNTIL 0 00 
TMASGNCWP4+IsMEXADDR9II)3 


TMASGNCRP sMAKECXADOR TYPES WP) )3 


_ MASGNCXADDR» MAKE CTYPEGARBAGE » WP) 5 
WPisWPsx,ADDR ENDS 


PRIMERRORC"GCLO"sXADDR)S. ZFIELO 


IF XADDR NEQ ATOMUNDEF THEN Go TO 3s ‘S8YNBOL 


# &L0e!c 
3 XLINK 


GO-TO Les xPROCESS. 
GO TO Las XMONTTOR 


GO TO Les ZGENERAL 


bay STOKEN. 


END CASE STATEMENTS © 


- %- COPY FROM TM TO M AND INVERT 
BASE tsWP413 
LASTUSENSPACE!303 


FOR RPtaWP STEP @1 UNTIL 1 00 
BEGIN Xs=TMERPYS 


- 00633000 


START OF SEGMENT weetewuene 
16 LONG, NEXT SEG 


43, 1s 


START OF SEGMENT «exw kewne 
12 LONGs NEXT SEG 


14 1S 


00634000 
06635000 
00636000 
00637000 
08638000 
00639000 
00640000 
00641000 
00642000 
06643000 
06644000 
00645000 
00646000 
00647000 


‘00648000 


00649000 
08650000 
00651000 
00652000 
00653000 
00654000 
08655000 
08656000 
08657000 


00658000 
00659000 


00660000 
00661000 


00662000 
00663000 
004664000 
00665000 
00666000 
00667000 
00668000 
08669000 
004670000 
00671000 
00672000 


(08673000 


00674000 
00675000 
00676000 


00677000 
00678000 


00679000 
00680000 


08681000 
00682000 


00683000 
00684000 


00685000 


AAAs Ht A st 


T 
T 
T 
T 
T 


es te a te se 


0026 


0034 


0033 
0058 
0094 
0102 
0106 
0108 
0112 
0125 
0128 
0130 
0133 
0134 
0136 
0136 
0137 
0144 
O144 
0142 


0142: 


0143 
0145 
0146 
0148 


0152 


0152 


01453 


0164. 


0162 
0187 
0224 
0232 
0236 
0238 


0242 


0255 


0259 


0264 
0263 
0265 


545 


0266 
0266 
0269 
0269 


0270 — 


0270 


0272 
0272 
0273 
0274 


0275 


13 
14 


i4 


dt 


: ‘ : : : : : : : : : : : : : 
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IF CTYP:sX,TYPE) NEQ@ TYPELOGIC THEN 
IF TYP NEQ TYPECODE THEN 

IF X.ADDR NEQ@ 524287 THEN 

XS SMAKECTYPsBASE*X«ADDR)S 
MASGNCSTEPSPACEsX) END. 

% FIX ADDRESSES IN @ 


FOR RPtaN+Nel STEP =1 UNTIL O DO 


IF ¢TYPrsQCRP), TYPE) NEQ TYPELOGIC THEN 
IF TYP NEQ@ TYPECODE THEN 


UF_QCRP1,.ADDR NEQ@ 524287 THEN 


QASGNCRP>MAKE(TYP»BASE=Q(RP}, ADDR) )3 


WRITECOATAs Fle AMTSPACEsLASTUSEDSPACE D3 
END GARBAGE COLLECT; 


REAL PROCEDURE COPY(X)SVALUE XSREAL X3 


BEGIN LABEL LisL2sREAL 13 
CASE X,TYPE OF BEGIN 


LitPRIMERROR("COPY"sX)3 GARBAGE 
MASGNCCCOPY 2 SPMAKECXs TYPE 20) ) *COPYCMEX]) 23 %CONSTRUCT 


COPYseCTF X=NULLIST THEN NULLIST ELSE CONSCCARCX) sCOPYCCOR 


CX2)2)5 SLIST 
L2tBEGIN FOR It@MEX],ADDR STEP =1 UNTIL 0 DO XAREA 


 MASGNCSTEPSPACEs MEX#11)3 
COPY SEMAKE CX eTYPE*LASTUSEDSPACE ENDS 


GO TO L143 SFEELD 


COPYSex3 XSYMBOL. 


COPYtsX3 ZLOGIC 
GO TO Li SLINK 


GO TG 4.23 SPROCESS 


GO TO L23 XMONTTOR 


GO TG L23 #GENERAL 
COPY tsXs XTOKEN 


ENO CASE STATEMENT) — 


END coPYs 


BOOLEAN. PROCEDURE EQCXeYQSVALUE Xe¥3 REAL XeY¥3 


IF XaYy THEN FQPRTRUE ELSE 
IF X,TYPENEQ Y,TYPE THEN EQ?® FALSE ELSE 
IF Xs TYPE NE@ TYPELIST. THEN EQ 33 FALSE ELSE 
BEGIN xtsCARCx)3 X##CARADDR3 
CURCART YER} SX SCARADOR 


oe END OF EOS 


REAL PROCEDURE CARCY)S VALUE YSREAL Y3 


f 


00686000 T 0282 
00687000 Tt 0284 
00688000 T 0285 
00689000 Tt 0287 
00690000 fT 0290 
00691000 rt 0294 
00692000 T 0294 
00693000 T 0299 
60694000 T 0305 
00695000 + 0306 
00696000 fT 0312 
004697000 T 0323 
06698000 7 0335 
14 1S 343 LONG, NEXT SEG 
00699000 Tt 0025 
00700000 fr 0025 
STARS QF SEGMENT xewekkw ae 
00704000 7 0000 
00702000 T 000; 
00703000 T 0003 
00704000 7 0013 
00705000 7 0017 
600706000 T 9019 
00707000 Tf 0030 
009708000 T 0044 
00709000 tT 0046 
00710000 Tr 0047 
00711000 T 0048 
00712000 T dQ049 
00713000 T 0050. 
00714000 T 0050 
00715000 ry 0054 
00716000 T 005; 
06717000 Tt 0053 
START OF SEGMENT «eek tee we 
16 18 12 LONG» NEXT Seq 
08718000 T 0052 
15 18 55 LONGs NEXT SEG 
00719000 T 0025 
00720000 T 0025 
00721000 T 0028 
00722000 TF 0034 
06723000 T 0034 
00724000 tT 0037 _ 
00725000 + 0038 
00726000 r 0041 


ee 


15 


16 
is 


2 
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BEGIN LABEL LieL23 


IF ¥,TYPE NEQ@ TYPELIST THEN 
IF Y,TYPE NEQ@ TYPELINK THEN PRIMERRORCMCAR "s¥)3 
IF YeNULLIST THEN GO TO Las 


LLICARADDRI=¥3 


IF CY f9MEY) 4 TYPESTYPELINK THEN 
IF Y NEQ LINKTONIL THEN GO TO Li ELSE 
L2IBEGIN CARt#ATOMUNDEFS 


__CARADORs #NULLIST. ENO ELSE 


CARTSY END CAR} 


REAL PROCEDURE CORCY)SVALUE Y3 REAL Ys 


BEGIN YreCARCY)3 

If CARADDR NEQ. NULLIST . THEN Y PSCARCMAKECTYPELISTsDEC(CARADDR)))3 
COREEMAKECTYPELISTsCARADDORDS 

ENO COR3 


PRACEDURE EQLISTCX*YISVALUE X»YSREAL Xey3 
BEGIN REAL TieT23LABEL LENDS 


TLESCARCY STL ESCARADORS T2EBCARCK D3 


IF TLEsCARADDR THEN GO TO LEND; 


IF CARADDRSNULLIST. THEN PRIMERROR(MEQL 29x )3 


MASGNCX»MAKECTYPELINKs T1293 
LENOSEND EQLIST3 


REAL PROCEDURE CONS(XsYI3VALUE X#Y¥SREAL Xe V3 


BEGIN Te YeTYPE NEG TYPELIST THEN PRIMERRORC"CONS"sY)3 


IF Y.eADOR NE LASTUSEDSPACE THEN MASGNCSTEPSPACE»MAKECTYPELINK»sY))3 


. MASGNCSTEPSPACE X93 
CONS taMAKECTYPELIST*#LASTUSEDSPACE JEND CONS; 


REAL PROCEDURE REFCX*Y)SVALUE X*YSREAL Xe 
BEGIN LABEL Lisk2eL3eL4sREAL TieT2s 


CASE Y.TYPE OF 


_ BEGIN. PRIMERRORC "REF 1's) 3 GARBAGE 


LI8BEGIN TLtSsMeYISSCONSTRUCT 
L2trF CARCT12 NE@ ATOMUNDEF THEN 


TF CARCT1L) NEQ X THEN 


BEGIN TitscoOR¢(T1)"13G0 TO L2 END ELSE 
REF S=CARCCORC TL) ELSE 


00727000 T 0044 

START OF SEGMENT rere. See ee 
00728000 +t 0000 
00729000 7 0004 
08730000 Ty 0004 
00731000 7 0005 
00732000 Tt 0006 
00733000 rT 0015 
00734000 T 0016 
00735000 T 0017 
00736000 rT 0018 

17 18 24 LONG, NEXT SEG 
00737000 T 0044 
00738000 T 0044 
00739000 7 0043 
00740000 T O047 
00741000 7 0049 
00742000 T 0054 
06743000 7 0054 

START OF SEGMENT #xxwtewton 
00744000 T 0000 
06745000 T 0003 
00746000 T 0004 
00747000 7 0006 
00748000 T 0008 

18 IS 13 LONG, NEXT SEG 
00749000 T 0054 
00750000 fT 0051. 
00751000 fT 0054 
00752000 T 0059 
00753000 T 0064 
00754000 T 0066 
00755000 tT 0066 

START OF ao canna ak kee ee 
00756000 Yr 0000 
00757000 r 0000 
00758000 Tr 0002 
00759000 T 0010 
00760000 T O012 
00761000 T 0014 
00762000 7 0018 


17 


2 


18 
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REF S=ATOMUNDEF: END} 
IF XsATOMCAR THEN REF t=CARCY) ELSESLIST 
IF XsATOMCDOR THEN REFtsCORCY) ELSE 


AF Xe TYPE NEQ TYPELOGIC THEN REFS=ATOMUNDEF ELSE 


BEGIN FOR X?#X,ADDR STEP el UNTIL 2 DQ YIRCDRC(Y)3 
REF S=caRCy) ENDS 


L3IBEGIN IF X¢TYPESTYPELOGIC THEN AREA 


IF x.AGOR LEQ MEYJ,A0DR THEN 

BEGIN REF s=ME¥exX,ADDRI3GO TO L4 ENDS 
REF ssATOMUNDEFS _ 

L4tEND}. 


PRIMERRORC"REFQ*SY)3SFIELO 
IF XSATOMASSO THEN %SYMBOL 


REF ss¢ip Y=ATOMUNDEF THEN Y ELSE MCYJDELSE 
PRIMERROR( "REFS" e723 
PRIMERRORC"REF A" YIISLOGIC 
PRIMERROR( "REF? ¥ SSL INK 


G60 TO 33 SPROCESS 


GO TO_L33MONITOR 
PRIMERROR( "REF 8" + ¥)3 SGENERAL 
PRIMERRORCUREFOM*Y)S3CODE 


END CASE STATEMENTS 


‘END REFS 


“ preceouae ASGNEXs¥22)3VALUE Xe Yo ZSREAL yale Z3 
BEGIN LABEL LisL@seL3sREAL 115723 


— CASE Y,TYPE OF 
BEGIN PRIMERRORC"ASGI"»Y) SZGARBAGE 
LESBEGIN TLs*McyYISSCONSTRUCT 


IF XRATOMUNDEF THEN PRIMERRORC"ASGD'»Y)3 
LesIF CARCT1) NEQ@ ATOMUNDEF THEN 

IF CARCT1) NE@ X THEN 

BEGIN TiteDECCCOR(T1)25GO0 TO L2 END ELSE 
TF Z NEQ ATOMUNDEF THEN 

MASGN(CDR(T1)9Z) ELSE 


IPF TisMcy) THEN. MASGNCY + CORCCOR(T1)) ELSE 


MASGNCTL »MAKECTYPELINKs COR(COR(T1))) ELSE 
IF 2 NEQ@ ATOMUNDEF THEN MASGNCY»CONSCX*CONS(Z»MCY)) ENDS 


_ BEGIN TLtsCARCY)ISLIST 


IF CARADDR2NULLIST THEN PRIMERRORCMASGOMZY)3 


IF X®ATOMCAR THEN MASGN(CARADDR+Z ELSE 
ores XSATOMCOR THEN 


Z,TYPE NEQ TYPELIST THEN PRIMERRORCE"aSGc'sZIELSE 
MASGNCCARADDR» MAKE CTYPELINKsCONSCMECARADDRI+Z)) ELSE 


__IF XeT¥PE NEQ TYPELOGIC THEN PRIMERROR("ASG2" 2X ? ELSE 
BEGIN T13=CARADDR3 


FOR Xtsx,ADDR STEP @1 UNTIL 2 DO 


BEGIN TF CYPMCDREYIIZNULLIST THEN MASGNCTI™ Le CY P=MAKECTYPELINKs 


CONSCATOMUNDEF sNULLIST)))3 
TitsY END} 


00763000 


00764000 
00765000 
00766000 
00767000 
00768000 
00769000 
00770000 
00771000 
00772000 
00773000 
00774000 
00775000 
00776000 
00777000 
00778000 
00779000 
00780000 


00781000 


00782000 
00783000 


00784000 FT 
START OF SEGMENT 


0020 
0022 
0024 
0027 
0030 
0037 
0038 
0040 
0049 — 
0062 © 
0063 
0063 
0065 
0065 
0075 
0078 
0080 
0084 
0085 
0085 
0087 
0088 


ee ee ee 


te a 


12 LONGs NEXT SEG 


00785000 


T 0088 


93 LONG, NEXT SEG 


00786000 
00787000 


START OF SEGMENT 


00788000 
00789000 
00790000 
00791000 
00792000 
00793000 
00794000 
00795000 
00796000 
00797000 
08798000 
00799000 
00800000 


00801000 
06802000 
(00803000 
00804000 


00805000 


00806000 


00807000 
00808000 


00809000 


00810000 
00811000 


T 0066 
T 0066 
KREME LERE 
0000 
0000 
0002 
0010 
0012 
00144 
0016 
0024 
0022 
0024 
0034 
0038 
0049 
0050 
0052 
0035 _— 
0057 
0064 
007? 
007s 
O07? 
0082 
0085 
0088 


a st ts) a 


ae 


19 


ge 


21 


fae 


: 2 . fAoard Ausirs.c Tarn SS" wae 2 
“4 5 


s @ 


j 


“MASeNtYs2) END. END) 


L3tBEGIN IF XeTYPE NEQ TYPELOGIC THEN PRIMERROR("ASG3% +X) SZAREA 
IF (X##x,eADOR) GTR MCY).ADOR THEN PRIMERROR(TASGA"*Y)3 
IF x20 THEN 


IF xeTYPE NE@ TYPELQGIC OR x GTR MCY) THEN PRIMERROR("ASGB"Z)3 


MASGNCY@XsZ)ENDS 


 PRIMERRORC™ASGG™s YDSRFIELD 


IF XSATOMASSO AND Y NEQ ATOMUNDEF THEN MASGNCYsZIELSEXSYMBOL 
PRIMERROR("ASGS "023 


_. PRIMERRORC"ASGO"sYISSLOGIC 
PRIMERRORC"ASG?%s Y ESL INK 


GO TO L3s PROCESS. 


GO TO L3as%MONTTOR 


PRIMERROR(TASGB%s YS GENERAL 
PRIMERRORC"ASGO"%* ¥)SRCODE 


END CASE STATEMENTS 


END ASGN3 


REAL PROCEDURE PNAKE (TSN) 3VALUE TeNSREAL To N3 


BEGIN LABEL LisL2eL33 REAL 13 
CASE T OF BEGIN 


LitPRIMERRORC MKL “seT)3 XGARBAGE 


 LRSBEGIN MASGNCSTEPSPACE*NULLIST)3 AcONSTRUCT 
— BMAKE F@MAKE CT» LASTUSEDSP ACE) ENDS 


PMAKE Ss NULLISTS SLIST 


_ BEGIN FOR I13@N.ADDR STEP 4 UNTIL 1 00 


MASGNCSTEPSPACE » ATOMUNDEF )3 
MASGNOSTEPSPACEsN)3 


_PMAKE PSMAKE (Ta LASTUSED SPACE ENDS 
GO TO Lis SFIELD 


PMAKEt@NEWSYMBEN)$ ZSYMBOL 


.. PMAKEPSATOS SLOGIC 

— GO TO Lis SLINK 
GO TO L33 SPROCESS 
GO TO L33. XMONTTOR 


GO TO L3s%GENERAL 
PMAKESRNEXTTOKENSSNEXTTOKENSL$ ZTOKEN 


END. CASE. STATEMENTS 


tue eubets 


REAL PROCEDURE NEWSYMBCASSO); VALUE ASSQSREAL ASSO3 
BEGIN MASGNCSTEPSPACE, ASSQ)3 


NEWSYMBS=MAKECTYPESYMBsLASTUSEDSPACE END NEWSYMB3 


00812000 
00813000 
00814000 
00815000 
00816000 
00817000 
00818000 
00819000 
00820000 
00821000 
00822000 
00823000 


00824000 


00825000 


00826000 > 
00827000 


START OF SEGMENT 
12 LONG» NEXT SEG 


2a 1s 
21 1S 


08828000 


0089 
0090 
0093 
0104 
0104 
0115 
O17 
O119 
0122 


0130 
o134 
0135 
0135 
0137 
0138 


ere es ee oe 


ne a nn st tt Ht 


T O138 


143 LONG, NEXT SEG 


00829000 


00830000 


START OF SEGMENT 


00831000 


00832000 
00833000. 


~ 00834000 


00835000 


00836000 
00837000 
00838000 
00839000 
60840000 
00841000 


06842000 
00843000 

00844000 
00845000 


00846000 


00847000 


00848000 
00849000 


START OF SEGMENT 
12 LONGs NEXT SEG 


24 1S 
23 18 


00850000 


(36 LONG, NEXT SEG 


00851000 
00852000 


00853000 


Ty «0066 


T 0066 
eaekkethaekan 
0000 
0000 
0002 
0005 
ooo? 
0008 
0014 
0019 
0024 
0023 
0026 
0026 
0028 
0049 
0030 
0030 
0034 
0034 
0033 


SS Le...) 


cTTec less Te 


7 0033 


T 0066 
T 0066 
T 0069 


012g 


22 
21 


23 


eS osea toca 
23, 


fg ee 


Pyetid Busiitsa Forms, ine. ¢ 


BG 
wy ae | Tete ot : + r tee f . ; % se : set re ‘ f : E 
: : : t : : : : i : i ae ue et i i : : : : 


i 


REAL PROCEDURE CHAR(PsN)3 


ROINTER P3 INTEGER N3 


- BEGIN REAL ARRAY Xto10]3 


X¥COJ]ts03 


_ IFN LSS 8 AND N GTR O THEN 


REPLACE POINTER(X)+C8"N) BY P FOR NS 
CHARtSXCO] “ENDS ® END OF CHAR 


REAL PROCEDURE HANGON (Xs¥)3 
VALUE XpY3 REAL XeV2 
BEGIN LABEL LieL2s 


POINTER P3REAL ARRAY XDOCOSO]*XiLOIOTIREAL Z 


pl aPOINTERCSTACKESTACKFOSITIONs [1817 Je} )#STACKPOSITION. [1141215 
XLLOLSS13ZPeNULLISTS — 

WHILE Y NEQ NULLIST 00 

BEGIN ZtsCONSCCARCY)oZISYPSCORCY ENDS 
WHILE Z NEQ. NULLIST 00 


BEGIN 

XBEOTI=CARCZ)? 

REPLACE PisP41 BY POINTERCND «7 FOR 13 
MULOD:exX1CO]413 

ZtsCOR(Z) ENDS 

REPLACE. POINTERCSTACKESTACKPOSITION, CiSt7J]axd)+ 


~ STACKPOSITION.C1£8121] BY POINTERCX$)¢7 FOR 13 


If X10] €QL 2 THEN BEGIN 
X1COT:=LGCADMODECKXD(012X1001).,ADDR3 

IF X1f0] €QL 2 OR X1f0) EQL 66 THEN BEGIN — 
HANGONSSTOKENCXDCOJ ADDR451273 XL EO] fe L OADMODECXDLCO] + Xi00)23 
60 TO L2 ENO3 

X1CO1s=LOADMODECXDLO)»X1001) END3 

RANGONIZLEXFINDS 

L2tENpD OF. HANGON) 


REAL PROCEDURE ILCMsCoCMpF Ds 
INTEGER MS REAL CoCMeF3 


BEGIN % PROCEDURE BLOCK} 


DEFINE. Na726e. NOPWna ts 


DEFINE FILINADATABs 


LAS Taengra, 


DEFINE TOTCHAR = 64#3 
DEFINE X*LEXTREESS 


START OF SEGMENT 


25 35 


START OF SEGMENT 


26 «IS 


START OF SEGMENT 


00854000 T 0073 
00855000 Tt 0073 
00856000 T 0073 
TRAP eALee Ee) 
00857000 T 0001 
00858000 T 0003 
00859000 7 0004 
00860000 T 0014. 
17 LONG» NEXT SEG 
60861000 t 0073 
00862000 T 0073 
00863000 T 0073 
he oe 
00864000 T 0000 
00865000 7 0003 
00866000 T 0003 
00867000 rt 0008 
00868000 T 0010 
00869000 T 0012 
00870000 Tt 0016 
00871000 T 0017 
00872000 T 0017 
00873000 T 0019 
00874000 Tt 002? 
00875000 T 0029 
00876000 + 0030 
00877000 T 0034 
00878000 T 0040 
00879000 T 0042 
00880000 T 0047 
00881000 T 0050 
00882000 7 0057 
00683000 7 0057 
00884000 T 0062 
00885000 T 0063 _ 
68 LONG, NEXT SEG 
00886000 T 0073 
00887000 T 0073 
00888000 T 0073 
00889000 T 0073 
eekW EWE RES 
00890000 T 0000 
00891000 Tt 0000 
00892000 T 0000 
00893000 Tt 0000 


25 


“2 


26 


pr 


oC ee ee 


@® e@«eeeee#s#ee# eee ® @ @ @ @80 8@ 8@® @ @ 


j 
i 


@ 


pe EN & OWN BLOCK | 90894000 + 0000 


: . @WN ALPHA ARRAY ae OIV NCPWI3 00895000 tT 0000 
| @: START OF SEGMENT weekewewnn 
OWN REAL ARRAY MODE fofTOTCHAR)3 00896000 T 0004 
i OWN INTEGER COUNTS . 00897000 Tr 0006 
i © OWN POINTER P3 . 00898000 T 0006 
i o OWN REAL ARRAY ‘Sstotesis . 00898080 T 0006 
; CASE M OF BEGIN 00899000 Tt 0009 
1 @ BEGIN INTEGER I} % M IS 03 00900000 7 0009 
BO eS a dn aah eae START OF SEGMENT seeeteenws 
: tt203 . 00901000 rt 0000 
, & WHILE I LE@.9 00 00902000 7 0000 
BEGIN MODECI}esisTtal44 ENDS 08903000 t 0002 
: WHILE I LEQ 63 00 00904000 T 0005 
-@ BEGIN MODELT}#903 I[tesl41 ENDS 08908000 t 0007 
| woper” ") t= 33 00906000 T 90010 
. MODELTI22683 00907000 7 0014 
i FILL SSC] WITH MaMa LM eMC He MA Me MEH eam yy, msm, 00907050 T 0012 
Z uae ee oe START OF SEGMENT «exewweeen 
- MOM MH M Me NEM MEN MIMS MOM MH sMaM, MEM EMs Mon, wen f 00907060 T 0044 
€ 30 18 24 LONG» NEXT Seq 
2 FOR Its0 STEP 4 UNTIL Ss pO MODELSSEII} 822 3 00907080 T 0044 
a COUNT?#0 END 3 x €0 M 00908000 T 0019 
© i 29 1S . 21 LONGs NEXT Seq 
BEGIN % M IS 43 00909000 T 0011 
LABEL Lis L2eL Seb 4b 5eL63 00910000 rf 0014 
@ START OF SEGMENT eeteeawen 
INTEGER IsJeTESREAL IL43 00911000 tT 0000 
BOOLEAN EOLsTEMs 00912000 7 0000 
e REAL ES = 00913000 T 0000 
REAL y3 00914000 r 0000 
1820) . 00915000 r 0000 
& L4t IF COUNT EQL 0 THEN 00916000 T 0000 
BEGIN — 00917000 7 0004 
UREADCFsDD#])3 00918000 t 0002 
6 Pr=sPOINTER(O)3 08919000 T 0003 
GO 70 L6s 00920000 t 0005 
END 00921000 Tt 0005 
eS ELSE IF COUNT EQL N 08922000 7 0005 
_ THEN BEGIN 00923000 tT 0006 
EVSWAKECTYPELOGICsLAST) 2. 06924000 t 0007 | 
& JESMODELCTOTCHAR] e(586)3 — 08925000 1 0009 
—EOLUeTRUE END © 00926000 tT 0010. 
ELSE L6OIBEGIN 00927000 t 0014 
@ EtEMAKECTYPELOGIC#CHAR(Ps1))3 00928000 t 0012 
. _ _ SUESMODECCHAREPs 1) D3P2=P 413 00929000 T 0018 
EOL HSBOOLEANCJ.t6811)3 00930000 tT 0020 
@ Jtwde0596) ENDF | 00931000 7 0021 
05! CASE J OF BEGIN 08932000 tr 0023 
BEGIN % =) JS O3 00933000 T 0023 
& CASE I OF BEGIN 00934000 tT 0023 
BEGIN % 1 18 6 00935000 T 0024 
#1SCONSCE*NULLISTO) 00936000 r 0024 
® Tte43 00937000 T 0026 
GO TO Li ENDJ & EO 10 00938000 T 0026 
BEGIN % 1 IS 43 00939000 Tt 0027 
oo] YEaCONS(EsY)3 00940000 7 OCB? 
¢ 


2g. 


30 
29 


28 


31 


: S i ete p es : : 
: BES { bee a : tala : : 1 eres 


eeeoeoevoeveeveeeeeweweeeeeee © 8 6 


G0 TO Li ENDS % EO 113 
BEGIN %1 1S 2 


Jis2ig0 TO Ls ENO ® £0 12 
END.S.CASES OF TS 
ENDS x EO *JO0 


BEGIN % “J IS 13 
CASE I OF BEGIN 


BEGIN % 1 18 OF. 
ILL#sE.ADORS [te2sIELISFALSES 


60 TO Li ENDS & EO 103 


BEGIN ¥ 1 IS 43 


YsaCONSCEsY)3 


GO TO Li ENE % £€Q 113 
BEGIN % 1 IS 23 


IF. YE1 vie 


ILLtaILi+es ADDR/10*(TEtSIE+!) ELSE 


ILLtTL1x104e,ADORS — 
GO TO L4 END ¥ EO [23 
END % CASES OF T3 
ENDS & EO #J%3 


BEGIN. %¥ J 18 2. SPECIALS 
CASE I OF BEGIN 
BEGIN * I IS O83 
TL UsHANGONCXeCONSCESNULLIST))3 
GO TO L3 ENDS * EQ t0% 
BEGIN & 1 18 43 
TL PRHANGONC Xe YO3 
PrePe, 3 
GO TO L2 ENOS * EO 143 
BEGIN % I IS a3 


‘IF E,ADDR EQL eo” THEN 


BEGIN. TEtSOs If ttsTRUESGO TO Li ENDS 


AL PSADE ILLIA TET Ter eeel 

PisP*43 GO TO Le END % EO 123 
END % CASES OF I3 

ENDI& EO -J23. | 


“BEGIN ¥ *J 18 3. SPACES 


CASE I OF BEGIN 
BEGIN & 1 15 03 


G0 TO. L1 ENDS % EO 103 
“BEGIN % 1 18 13 


TLE SMANGONCK SY 3. 


gp TO_L3 END) _& EO 113 


BEGIN % I IS 2 


SRN eas bw 
_, $0 FT 123 


043 END x €0 
END * CASES OF. 1b 
‘ENDS ee 


BEGIN % =J 18 4 IGNORES 


00941000 > 


06942000 t 0030 
00943000 T 0030 
00944000 7 0034 
00945000 T 0034 

START OF SEGMENT waewkwedan 

32 18 $3 LONG, NEXT SEG 
00946000 T 0032 
06947000 T 0032 
06948000 T 0032 
06949000 T 0032 
00950000 7 0038 
00953000 7 0036. 
00952000 T 0036 
00953000 T 0038 
00984000 T 0039 
00954010 T 0039 
00954020 Tt 0039 

00955000 rt 0045 _ 

00956000 ft 0047 
00957000 T 0048 
0@958000 r Q048 

START OF SEGMENT ##** take 

33 158 3 LONG, NEXT SEG 
00959000 T 0048 
00960000 y 0048 
00961000 T 0049 
00962000 TF 0049 
00963000 rt 0054 
00964000 + 0052 
00965000 Tt 052 
00966000 T 0054 
00967000 T 0057 
009468000 Tt 0058 
00968010 ft 0058 
00968020 + 0059 
00969000 T 0064 
00970000 T 0063 
00971000 T 0067 
06972000 Y 0067 

START OF SEGMENT eAEKEN KES 

34 18 3 LONGs, NEXT SEG 
00973000 T 0067 
06974000 T 0067 
00975000 Tr 0068 
08976000 tT 0068 
00977000 T 0069 
00978000 T 0069 
060979000 t 0070 
00980000 T 0074 
00981000 T OO0T]{ 
06982000 tT 0073 
09983000 T 0074. 
00984000 T 0074 

START OF SEGMENT weeettaten 

35 1§ 3 LONG, NEXT SEG 
00985000 T 0074 


f 


32 


81.) 


33 
31 


34 


34 


ae cme 
31 


& fader 8. WN esS Glee HS Tae Se bade 
i ges : . j : 2 aby 


60 TO L1 END ¥ EO*u4s 


ENDI® CASES OF #J8 


Lift IF EOL THEN COUNTS=0 

ELSE COUNT! SCOUNT +413 
GO TO Las | 

L3! tf EOL THEN COUNT#=0 

ELSE COUNTISCOUNT 413 
42! END % EQ M4 


BEGIN X M I8 23 
IL teMAKECTYPELOGIC»MODECC, ADDRIDS 
M@DEC C.ADDRI1@CM, ADDR 
‘END © €O M2} 

ENO % CASES OF M3 

END % OWN BLOCKS 


ENDS% PROCEDURE BLOcK *ee END OF INLEX *#® 


REAL PROCEDURE. LEXFINDS 
BEGIN” INTEGER TleTeT2sT33 


‘DEFINE KSSTACKPOSITION#? 
POP LePQINTERCSTACKECP 1, CASS71 o*) OPLyciisi2yes 


LABEL LEND; 

CHAS =O} 

REPLACE CP BY P(X) FOR 13 

TitecHes 

REPLACE cP#5 BY POX) FOR CIF Ti LSS 6 THEN T1 ELSE 693 
TeeT3SteeRERCCT2raATCCHR MOD 127 #1) HASH)S 

WHILE T NEQ NULLIST 00 

If PCX) NEQ PCCCARCT #2000) ) FOR Ti THEN 


TIBCORET) ELSE: 


BEGIN. LEXFINDSsCARCT)3 GO TO LEND ENDS 
ASGNCT2,HASH# CONSCLEXF IND 1 @TOKENCX4+2000) 973) )5 


Xtexetay 


LEND?END LEXPINOS _ 


ae ane EAC a VALUE FILS REAL FILE ARRAY BUFTOUS 


BEG 


FILES In, OISKFIL DISK RANDOM CislOs150sSAVE 99993 


“POINTER PX3. 


LABEL REM LisE0F3 


REAL MFIDsFIDseNe XS 
IF REFCAT6,FILI@TOKENCIOLOTHEN GO TO REMS ZREMOTE DEVICE 


00986000 T 0074 
00987000 fT 0075 
START OF SEGMENT wsiekeketen 
36 IS 5 LONGs NEXT SEG 
08988000 TY 0075 
08989000 fT 0076 
00990000 Tt 0079 
06991000 7 0079 
00992000 fT 0080 
00993000 T 0083 
34 31S 85 LONG, NEXT SEG 
0@994000 T O0t2 
(00995000 T OdO0tLa 
00996000 T 0018 
00997000 r OO1?7 
00998000 T O01? 
00999000 7r 0017 
START OF SEGMENT «exc etewee 
37 18 33 LONG, NEXT SEG 
01600000 ry 0017 
28 1s 21 LONGs NEXT SEG 
27 18 ‘6 LONG, NEXT SEG | 
01001000 tT 0073 


38 IS 


01002000 T 0073 
START OF SEGMENT 


START OF SEGMENT 


ke ew dee 
01003000 7 0000 
01004000 7 00006 
01005000 y 0000 
04006000 +r 0000 
01007000 rT 0004 
01008000 T 0008 
04009000 r 0009 
01610000 r 0020 
01011000 T 0025 
01012000 Tt 0026 
01613000 T 0039 
01014000 rt 0043 
01015000 T 0045 
01016000 T 0048 
01017000 T 0050 
55 LONG», NEXT SEG 
01018000 Tt 0073 
01019000 T 0073 
01020000 Tr 0073 
oer ete er 
01021000 Tt 0006 
01022000 Tr 0006 
01023000 r 0006 
01024000 Tr 0006 


26. 


37 
28 


38 


2 


are ee 


5 H i : : : ere : : 
: Ley - i : ; : : ' : : : : i : mgt pees : ; : 
i ice ! i Pycecs pee ie : : a z s , PR ee 8 eel ; ‘ 


@eeereee3ewneeeweeenwenwenwneewekeee eee 


: 


IF REFCATOsPILIaTOKENCIOLL) THEN %DISK 
BEGIN CHRts03 
Xie REFCAT2*FIL)*20003 


_ PXEBPOINTERCSTACKECKCIBI7J] oe) eC xo lii012)93 


REPLACE CP BY PXtPX FOR 43 
NtaCIF CHR GTR 7 THEN 7 ELSE CCHReL))3 
REPLACE CP=5 BY " " FOR 63 | 

REPLACE CP#6 BY PX!IPx FOR N3 

MF YO ®#CHR3 

CHRIsO; 


— Xte REFCAT3ISFIL)©20003 


PMESPOINTERCSTACKE CX, 0C16873)941240X,0449812193 


REPLACE CP BY PXEPX FOR 13 


Ntectr CHR GTR 7 THEN 7 ELSE CCHR®L))3 
REPLACE CP=5 sY * "™ FOR 63 

REPLACE CPe6 BY PxtPxy FOR N3 

FIOMSCHRS ae 
FILL DISKFIL WITH MFIDs FID3 : 


READCOISKFIL CREF CATISFIL)ADDRI+10s8URE*) CEOFI3 


WRITECDATAs 102 BUFD "193 
ASGNCATLOFILeREF CATS es FIL 44 )3 
GO TO Li ENDS ae 

EOF’ PRIMERRORC"UREDMS FIL DS 
REM? READCDATAs9sQUF E4193 

Lit END UREADS 


PROCEDURE MEMSAVECXsNsY)3 


VALUE Ne YSARRAY XCOUSREAL Ne YS 
BEGIN INTEGER feKSREAL MOOS 


SAVE FILE MEMFL DISK SERIAL(20:25] (265125512sSAVE 99993 


FILL MEMFL WITH YeTIMEC 493 
_KESLASTUSEDSPACE C18 183413 | 
MEMORYTK,40178935K,(819)]$aM00 taMEMGRYEO 0073 
MEMORY(0s0) NGL ASTUSEDSPACE (4542212333 


FOR f'20 STEP 1 UNTIL N DO BEGIN 


KtmKols MEMORYEKCI7#9I SK, C8I9IJtaxer) ENDS 

FOR Yts0 STEP £ UNTIL Kyl47#97 DO 

WRITE (MEMFL e512 2eMEMOR¥CI e833 — 
STACKLOsO}#@STACKPOSITIONS Isan43 

WHILE T'=I41 LEQ STACKPOSITION,C18873 po 


LOCKEMEMFL)3 . 


MEMORY(CO+0]$@MOOJEND OF SAVE 


_ WRITE CMEMPLs Si2eSTACKE e413 


PROCEDURE UNSAVECXsNsFID)S 
VALUE FIDSARRAY XCOJSREAL NoFID3 
BEGIN INTEGER tok3 


39 1S 


04025000 


01026000 
01027000 
01028000 
01029000 
01030000 
01031000 
01032000 
01033000 
01034000 
01935000 
01036000 


01037000 


01038000 
01039000 
01040000 
01641000 


01042000 


01043000 
01043010 
01044000 
01045000 
01046000 
01047000 
01048000 


98 LONG 


01049000 


01050000 
01051000 


START OF SEGMENT 


40 1S 


01052000 


04053000 © 
01054000 


01055000 
01056000 


01057000 


01058000 
01059000 
01060000 
01061000 
01662000 
01063000 
01064000 
01065000 


57 LONG 


01066000 
01067000 
01068000 


T 
T 
T 
T 
T 
T 
T 
tT 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
tT 
T 
T 
T 
T 
T 
T 
, 


T 
T 
T 
* 
1 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
bd 


T 
Tt 
T 


0008 
0010 
0012 
0014 
0019 
0022 
0026 
0032 
0037 
0034 
0039 
0044 
0046 
0049 
0053 


0059 


0063 
0064 
0068 - 
0076 
0080 
0083 
0086 
0087 
0094 
NEXT SEG 


0073 
0073 
0073 
RN KE WH 
0000 
0006 
0010 
0012 
O0L7 
0020 
0029 
0028 
0033 
0038 
0044 
0043 
0048 
0050 
NEXT SEG 


0073 
0073 
0073 


START OF SEGMENT wweettw wan 


2 


40 


2S 


41 


Forms, tacecst 


noes 


@®eoevesteee80008 8 @© @ 


coe ee ae SAVE PILE MEMFL DISK SERIALC1*5122512)3 
IF BOOLEANCXXL)THEN FILL MEMFL WITH FIDsTIMEC™LIELSE 
FILL MEMFL WITH FIDs XX2 & "B0008"(41129830)3 
READ (MEMFL»5122MEMORY(O0s%))3 
LASTUSEDSPACESsM[0],ADDR} NteMC4),ADDR3 
K#sLASTUSEDSPACE ,C18218}4N423 
FOR Teat STEP 3 UNTIL Ke01729] 00 
READ CMEMFLsS¢2eMEMORYCIeWJ23 KiskeNn3 
READ CMEMFPL*s51i2eSTACK[Os*))3 
_.... -STACKPOSITIONSSSTACK(O2013 13203 
WHILE Itsre1 LEQ STACKPOSITIONs £1897) 00 
READ (MEMFLe512¢STACK( Io) )3 
MEMORYOs0)8MEMORYECK@1) C1719 )sCK91),0889) 
7 END OF UNSAVES3 


REAL PROCEDURE BNFTREECF)3 


REAL F3 
BEGIN INTEGER I3 


“REAL KoYeVieZeZi3 
LABEL LisL2oL deol Seb Sel Gsh73 
REAL ARRAY SSf015)3 
PROCEDURE ERRCID)# INTEGER 13 
_ BEGIN. 
PO RMAT: FLCKS tS ‘ON Tel 


{ 
i 


i 


01069000 


tT 0000 
01070000 y 0003 
01071000 T 0008 
01072000 7 0014 
01073000 T 0018 
01074000 7 0034 
01075000 T 00346 
01076000 7 0040 
01077000 7 0048 
01078000 T 0052 
01079000 7 0055 
01080000 T 0058 
01083000 tT 0063 
01084000 T 0068 | 

73 LONG, NEXT SEG 
01085000 7 0073 
01086000 T 0073 
01087000 T 0073 
START OF SEGMENT weeetenenn 

01088000 T 0000 
01089000 T 0000 
01090000 Tt 0000 
01091000 T 0004 
01092000 t 0004 
01093000 tT 0001 


Le 
ae 
i 
i 


Ce ge : CASE J OF BEGINS 

ee TE Se WR TECDATASFL I 
WRITECDATAsFa)s 

END END OF ERR? 


FORMAT F2CX3s"*NON"TERMINAL IS TYPE LOGIC")? 


START GF. SEGMENT «sett 8 awe 

START GF SEGMENT wtekttatwe 

44 1$ 6 LONGs NEXT SEG 
01094000 T 0000 

START GF SEGMENT «ket ehetan 

45 1S 9 LONGs NEXT SEG 
01095000 7 0000 
01096000 Tr 0000. 
014097000 tT 0004 
01098000 T 0007 

START OF SEGMENT wsektwnnns 


SWITCH SW faLSebh6ebas — 
FILL astey WITH wat, MEMS HEH, MEM SHAM, MyM 3 


{ 
i 
i 


FOR l:2 0 STEP 1 UNTIL 5 DO BEGIN 
_ XPSLOADMODECSSEII22)3 
 XERCONSCMAKECTYPELOGIC*#SSEI])*NULLIST)3 
~ SSCI12=HANGONCX*X) ENDS 
XPSLOADMODEC 2S" ,68 93 . 
L&tZ*eCONSCMAKECTYPECODE +1 py Neeh St at 
14 PACONS CATOMUNDEF aNULL IST 


I 
' 
i 
i 
| 
{ 
i 
i 


t 
| 
| 
| 
| 
| 
| 


46. 18 3 LONGs NEXT SEG 


8 LONGs NEXT Seg 


061099000 


01100000 


6 LONG, NEXT SEG 
01101000 T 0009 
01102000 T 0011 
01103000 t 0017 
01104000 t 0020 
01105000 r 0024 
01106000 T 0029 
01107000 t 0032 


T 


T 


0004 
0007 


START OF SEGMENT wexweawwaw 


ae 


47 
42 


i : Z 
{ : i : : i : 


© 


H 
i 
i 
i 


Pose uate cst Paemig, ta atoy 
‘ $ : wat : : bas t i + enety 5 : : Los : a 
eee j peer 2 ; os i : ee : re ‘ i i { 4 t : : 


WHILE (Xt sUSERSCE) ) NEQ@ $S(0] DO BEGIN 01108000 T 0034 
IF X EQL SS€2) THEN BEGIN ERR(1)3G0 To L4 ENDS %$ ON LHS 01109000 rt 0036 
IF X.TYPE EQL TYPELOGIC THEN BEGIN ERR(2)3 GO TO 14 END3 & LOGIC ONL 01110000 tr 0040 | 
EQLISTCY1s CYL FSUSERLOX))) ENDS . 01111000 r 0045 
IFCKtsUSERS(F)) EQL $804} AND CARCY1) NEQ ATOMUNDEF 01112000 fT 0047 
THEN BEGIN EQLIST(ZsY1)3 GO TO LS END. . 01113000 7 0050 
ELSE BEGIN EQLISTCY19Z)3 YitsYt=CONSCMAKECTYPECODE S119) sNULLIST)S 01114000 Tt 0053 
GO TO L7 END; 01115000 T 0057 
LStYi:sYtaCONS(MAKECTYPECODEs 119) sNULLIST)3 01116000 r 0058 
L2tXseUSERSCF)S 01117000 T 0062 
L78IF X EQL $802) THEN BEGIN 01118000 rT 0063 
ASGNCATOMCBRs ¥is (Y¥12=CONS(USERSCF)»sNULLISTIID3 01119000 T 0065 
GO TO L2 ENDS * TERMINAL 01120000 r 0068 

IF X EFQL $Sf4) THEN 01121000 T 0069 
BEGIN If943 gO TO L3 ENDS & @ 014122000 t 0070 
IF X EQL SS8£S} THEN 01123000 7 0072 
EGIN ae : 01124000 T 0073 
ASGNCATOMCORs Y1e CYL $#CONSCUSERL (OX) *NULLIST) 23 01125000 T 0073 

~ ASGNCATOMCDRS YL FNSCX) 3 - 01126000 tT 0076 
GO TO L7 END; 01127000 tT 0079 
If xX €Q@L SSf1) THEN 01128000 T 0080 
BEGIN I#=23 gO TO L3 ENDS % SEMICOLON 01129000 r 0084 
IF -X €QL S803) THEN 01130000 Tt 0083 
BEGIN I%=33 GO TO 43 ENDS % COLON 04131000 7 008% 

IPF XeTYPE EQL TYPELOGIC THEN BEGIN ERR(2)3 GO TO L4 END? % NON@TERMINA 01132000 Tr 0088 
ASGNCATOMCDRs Vie CYitsCONSCUSERL(X) #NULLIST) 293 01133000 T 0090 
GO TO La; 01134000 T 0093 
L3tASGNCATOMCDORs ZeCONSCCORCY)sCDR(Z)))3 01135000 tT 0093 
60 TO Swerd3 : 01136000 Tt 0097 
LG'BNFTREE SSL ABTAB 01137000 T 0099 
ENDS. & END OF BNFTREE. 01138000 7 0099 
42 18 109 LONG» NEXT SEG 2 


REAL PROCEDURE DACX)SVALUE X$REAL xd_ 


, 01138010 TY 0073 

BEGIN IF X.TYPE EQL TYPELOGIC THEN 01138011 7 0073 
DAtaxX,ADDR ELSE 01138012 T 0075 
IF X,TYPE EQ@L TYPEAREA | 01138013 7 0077 
THEN DAtBORREPCATIeX)04628298REFCAT20xX 037218219) 01138014 T 0078 
01138015 T 0083 


GREP CAT3sX)CIBNISTIGIELSE PRIMERRORC"DA™*xX) ENDS 


014138016 Tr 0096 
01138017 T 0094 
01138018 Y 0093 
START OF SEGMENT waeeetenten 48 
01138019 fr 0003 
01138020 7 0005 
01138021 7 0008 
48 78 12 LONGs NEXT SEG. 2 


REAL PROCEDURE ADCX)SVALUE XSREAL XSIF -X GTR O AND 
‘X,0381391 LSS 524288 THEN ADtsMAKECTYPELOGICs x) 
ELSE BEGIN REAL ADI3AD139AD3 =PMAKE( TYPFAREAsMAKECTYPELOGICs3))3 


ASGNCATLFADL sMAKECTYPELOGIC*X.{4689]))3 
 ASGNCATZ s AD La MAKE CTYPELOGICs Xf 378199) 93 
ASGNCATSsAD1 sMAKECTYPELOGICsX,0189192))END 3 


2 


cies 
s 


i 


ie 


REAL PROCEDURE ARC(XsY¥eZ)3 VALUE Xe Yea ZsREAL Xe ¥oZ3 
BEGIN REAL AR1sAR23 


REAL PROCEDURE FNCIsJsKSVALUE IsJsKSREAL Ie jek} 


BEGIN REAL FICASE { OF BEGIN 


: FtmJsKSF PSJeK SFR UXKSF ERU/KSFE eeK ENO$ %END OF CASE 


FNESADCP) ENDS. 


IF Y.TYPE E€QL TYPELIST THEN 

BEGIN AR2tsAR1tsCONSCATOMUNDEF eNULLIST)3 

IF Z,TYPE E@L TYPELIST THEN 
BEGIN. WHILE Y NE@ NULLIST AND Z NE@ NULLIST 00 

BEGIN ASGNCATOsAR IARI ISCONSCFNCX*DACCARCY) )#DACCARCZ)) 9+ 
NULLIST) FS Y#SCORCYIIZISCORCZ) ENDS 
IF Y NEG Z THEN PRIMERRORC"AR"*Y) ELSE AR:sCDRCAR2) END 
ELSE BEGIN ZtaDA(Z)3 

WHILE Y NEQ NULLIST DO BEGIN 

ASGNCATOs ARLs ARLESCONSCFNCKX »DACCARCY ))92)*NULLIST))3 
YtaCORCY) END$ AR#ACORCAR2Z) END 

END ELSE IF Z.TYPE EQL TYPELIST THEN 


BEGIN. YEsDACY) SAR2#=AR1 8 SCONSCATOMUNDEF aNULLIST)3 
WHILE Z NEQ@ NULLIST DO BEGIN 


ASGNCATOs ARI #ARLt @CONSCFNCXs YsDACCAR(Z)) 4 NULLIST))5 


—ZteCOR¢(Z) ENDS ARtaCORCAR2) END 


ELSE ARS SFNCXsDACY)sDACZ)) ENDS 


~~ PRACEDURE RETURNCPROCESS* VAL) S VALUE PROCESS» VALS 


REAL PROCESSs«VAL3 


BEGIN IF PROGESSsTYPE NE@ TYPEPROCESS THEN PRIMERRORC*RTRN"> 


— PROCESS)3 
ASGNCAT7»PROCESS*CONSCRC9»CONSC(VAL sREFCAT7»PROCESS))))3 


PROCESS! 5QQ¢PROCESS)END RETURN} 


 pRaceDuRE | RESUME (PROCESS) VALUE PROCESS: REAL PROCESS3 
BEGIN IF PROCESS»TYPE NE@ TYPEPROCESS THEN 
PRIMERROR("RSM1"sPROCESS)3 


IF REFCAT2sPROCESS) NEQ ATOMSUSPENDED THEN 


_ PRIMERRORC"RSM2"sPROCESS)3 
— ASGNCAT2»PROCESS»ATONRESUMED )3 
~ ASGNCAT7sPROCESS*CONS(RC1,REF(AT?»PROCESS)))3 
PROCESS: sQQC¢PROCESS) END RESUMES 


START OF SEGMENT 


START OF SEGMENT 
START OF SEGMENT 


54 18 
50. 18 


49 1S 


01138030 T 0100 
01138035 T 0100 
eRKEKREKNKEK 
01138040 T 0000 
01138045 t 0000 
exXkARKE ADEE 
01138050 T 0000 
eae EKHHKE 
5 LONGs NEXT SEG 
01138055 T 0010 
15 LONG, NEXT SEG 
01138060 7 0000 
01138065 T 0004 
01138070 7 0003 
01138075 T 0005 
01138080 T 0008 
01138085 T 0013 
01138090 T 0017 
01138100 T 0022 
01138105 T 0024 
01138110 7 0025 
01138115 T 0030 
01138120 7 0033 
01138125 T 0035 
01138130 7 0038 
01138135 T 0046 
01138140 7 0045 
01136145 T 0048 
58 LONG, NEXT SEG 
01139000 T 0100 
01140000 T 0100 
01141000 T 0100 
01142000 Tt 0103 
01143000 T 0103 
01144000 T 0107. 
01145000 T 0110 
01146000 T. 0110 
01147000 T O411 
01148000 T O812 
01149000 fT O114 
01150000 T 0115 
01151000 T 0117 
01152000 T 0119 


2 


: i = Hi ; L 


tA 


¢ee3ee#ee 


1, FAG. BY 


Musget ducdnoss Fever 
Bm ie ak : : : : i : ; i 


REAL PROCEDURE CREATE CSTART»ENVs INTERPRETER» PROCESS)3 


VALUE STARTsENVs INTERPRETER sPROCESS} 
REAL SE ae teen BE SRReEROCE SS! 
BEGIN REAL YI. 


Y taPMAKECTYPEPROCESS@LOGIC(7))5 


ASGNCAT Is Ys REF CAT Is PROCESS) 93 


ASGNCAT2s Ys ATOMSUSPENDED D3 
ASGNCAT32 Ys STARTS 


_ ASGNCATGsYsENVD3. 
ASGNCATS# Yo! NTERPRETER)3 
| ASENLAEGS CLPROGESS 33. 
 ASGNCAT?T*#YeNULLISTIA 
CREATE tsY END: CREATES 


PROCEDURE DEBUG? 


BEGIN FORMAT FLICBU)sF2CA4s TOs F3CTOs"E%, Ads IG)» 


NOTELE"DEBUG?")» 


NOTE2ZC" INVALID. PROCESS OPERATION" )» 


NOTESC"INVALID TYPE ON FIRST PARAMETER" )>» 
NOTEASC" INVALID TYPE ON SECOND PARAMETERW), 


. NOTESC™INVALIOD TYPE ON THIRD PARAMETER" )e 


NOTE7C™SYSTEM SAVED AS FILEw=ts a6)» 
NOTESC"SYSTEM LOADED FROM FILE=="sA6)a_ 


NOTES CHAM), 


NOTE LOCYSYSTEM LOADED FROM FILE@"sA6eX19A2)¢ 
NOTE6¢"NO PREVIOUS EXECUTE'N)3 


FORMAT FMTLUSPC™AMTSPACES" » 169", LASTUSEDSPACES"»16)3 


“REAL OPpTisVieTQeV20T39V3eTeJUNKeds 


REAL ENVePROGESSs X3 
BOOLEAN APLISREAL | APLENVsAP1,AP2eAP32AP43 


LABEL. LisL2sb3eL4oL Sel 6sLENDS 


MONTTOR ZEROS” 


DEFINE PPCPP1sPP2sPP3)aJ%sO03 WHILE TYPEARRAY( J] NEQ@ PP1 00 


IF J NEQ 15 THEN JtaJei ELSE 
BEGIN WRITECDATAsPP2)3G0 TO L2 ENDS 


PP BERMAKECJsPP3)#e 
PLSBEGIN PPCTLsNOTE3sV1END# > 


P2aBEGIN PISPPCT2sNOTE4SsV2IENDEs 


_ P3sBEGIN P2sPPCT3,NOTES»V32END#3 


ZEROtsL23 
LItwRITECDATAsNOTEL 23 


 WK2UTLSST2ARST3SERTSYMB"S 

Vibesv2tev31a5242873 
READCDATALSTOP3 sf 1eOP+T1eVieT2sV2sT3sV3»JUNK)S 
FOR Ttso. STEP 4 UNTIL NOOFPROCESSOPS DO 


TF OPsPROCESSARRAYECI) THEN GO TO 133 
WRITECDATAsNOTE223G0 TO Las 


01153000 
01154000 


01155000 — 


01156000 


START OF SEGMENT 
01157000 


01158000 
01159000 
01160000 
01161000 
01162000 
01163000 
01164000 


01165000 


tt ts st es 


16 LONG, 


01166000 


04167000 


START OF. SEGMENT 
START OF SEGMENT 


T 
T 


0124 
0124 
0124 
0124 


te eE Ke ee 


0000 
0002 


0004 
0005 
0007 
0008 
0009 
0010 
0012 
NEXT SEG 


0124 
0124 


Pee ee Lee sy 


kk eee 
01168000 T 0000 
01169000 T 0009 
014170000 T 0000 
01171000 T 0000 
01172000 T 0000 
01173000 T 0000 
01174000 T 0000 
01475000 7 0000 
01176000 T 0000 
01177000 T 0000 
94 LONGs NEXT SEG 


- 40 LONG, 


01179000 
01180000 


01180010 > 


01181000 
01182000 
01183000 


01184000 


01185000 
01186000 
01187000 
01188000 
01189000 
01190000 
01191000 
01192000 


01193000 


01194000 
01195000 
01196000 
01197000 


AHHH te Ht 


01178000 T 0000 
START OF SEGMENT seutwewwne 
1 NEXT SEG 


0000 
0000 
0000 
0000 
0000 
0002 
0002 
0002 


0002 


0002 
0002 
0002 — 
0002 
0004 
0008 


0009 


0014 
0030 
0032 
0035 


eee 


53 


53 


55 
53 


P 7 P P e 
@®eeee?eee?eeee8e ¢@¢e0ee0ee8e@60808fmUmtmlmUtmlCOHWmUmUCOWUCOClCUD 
sf z -: 

: : data tiga Sane st : 5 fale aves pete aes : ‘ © pa eee 


- LBICASE I OF BEGIN 


GO TO LEND} % EN OD 

BEGIN P3SASGNC(VAisV2se(V188V3) END ZASGN 
BEGIN Pos ViSSREFEViev2) END) ZREF 
BEGIN Prsvit=aacvidsGo TO 42 ENDS %QQ 


VG beuae ua 


BEGIN PisVitsCARC(V1) ENDS CAR 
BEGIN PasVitaCDRCVL) ENDS CDR 
BEGIN PasVitSCONS(VieVv2) ENDS %CONS 


BEGIN RasVISSNEWSYMBCVELQENDS XNEWSYMB | 


BEGIN WRITECDATAsFMTLUSPeAMTSPACEs LASTUSEDSPACE)3GO TO L2 ENDS %AMTSP 
BEGIN P2sVirsPMAKECVI,TYPEsV2)ENDS SMAKE 


BERIN PLsPRINTCVLIWRITECOATASNOTE9)3G0 TO L2 ENDS XPRINT 


AXGEGIN P33VileLOADMODE(VisV2sV3IENDS %LDMODE 

BEGIN GCL#GO TO L2 ENDs2%GCL 

BEGIN PasIF V1 NEQ ATOMUNDEF THEN ZINTERP 
RESUMECVI)SINTERP3GO TO ba END3 


Vital ABTAB3 


ViteLEXTREES 

BEGIN P13V1$#USERS(V1) ENDS & USERS 
BEGIN SMEMCTLISWRITECDATASNOTE7s7T122G0 TO L2 ENDS %SMEM 
BEGIN XXi#e43LMEMCTL93 SLMEM 

APLItaraALSe3 

WRITECOATAsNOTESs Ti 93 

“LesALsTLss"LIST"sVLPSREF CAT2 REF CTOKEN( 2742) sLABTAB) ) «ADORE 
TATS"AREA" SV2teREFCTOKENC 2608) 2LABTAB)3GO TO L3 END; 

BEGIN PLZ VLIESSTATS ENDJ% PSCAN 

BEGIN PLSVitM@BNFTREECV1) ENDS % BNFTRE 


BEGIN P23 V2ESUSERSCV2)S ASGNCV2,LABTABs VIIENDS & INCODE 


BEGIN VileQUuCSs,O)SWRITECDATAsNOTE9I2GO TO 12 ENDS ZQDUMP 
BEGIN FOR 1:9T1 STEP 4 UNTIL V1 DO *DUMP 

WRETECOATASF Be Te TYEEARRAYCHEL « TYPE J*M£I3eADOR)3 
WRITECBATAsNOTE9IIGO TO L2 END 

BEGIN RISPRIMERROR(T2eV12560 76 L2 ENDS 

BEGIN MisMASGNET2Z2V1) ENDS XMASGN 

BEGIN P13 XXLPSVIFXK2EST2IVITBQUCS 219760 TO L2 ENDS %QASGN 
— VieeMeTi ds $M 

BEGIN XX2ISTLIVIteQUCS»2.ENDS XO 

BEGIN PIsSENVEalF APLI THEN APLENV 


_ ELSE PMAKECRYPECONS 2003 < % EXE 


LOADMODEC "S225 
PROCESSta CREATE (NULL ISTsENV»TOKEN( 10049» CONSCAT (262144) #NULLIST) 3 


— ASGNCAT6 «PROCESS sATOMUNDEF )3 | 


L4tASGNCAT2sPROCESS*ATOMSUSPENDED )5 
ASGNCAT3s+PROCESSs (XtsVi) 3 
WHILE CORCX) NEQ@ NULLIST 00 X#*CORCX)3 


_ ASGNCATOs xX» CONS (CONS CTOKENC117)+NULLIST)+NULLIST))5 


RESUME CPROCESS)3 
-INTERPS. 
ENV EEREF CATMsPROCESS#=XX193 
ASGNCAT?7»PROCESS#NULLIST)3 


_ ViteREFCTOKENC1000)sENV)3 


IF APLI THEN BEGIN APLPNT(V1)3 APLENVERENVS 
LEmIGITLSEMLISTMI TAM VAREAMIVIISREFCTOKENCSO03)sLABTAB)S 
V2IMREFCAT20V{) eADDRIVIESREFCATI2V1),ANDR3 

GO TO 13 END 3 

END3 


01198000 
01199000 
01200000 
01201000 
01202000 
01203000 
01204000 
01205000 
01206000 
01207000 


01208000 | 


01209000 
01210000 
01211000 
01212000 
01213000 
01214000 
01215000 
01216000 
01217000 
01218000 
01219000 
01219010 
01220000 
04220010 


04220020 


01221000 
01222000 
01223000 
01224000 
01225000 
01226000 
01227000 
01228000 
01229000 
01230000 


01231000 


01232000 
01233000 
01233010 
01234000 
01235000 


01236000 | 


01237000 
01236000 


04239000 
01240000 
01241000 


01242000 
012462010 
01243000 
01244000 
01244010 
01244020 
01244025 
04244030 
01245000 


ten a st tt tt tt tt tA tt Ht st 


0039 


0040 ~~ 


00414 
0076 
0104 
0114 
0116 


— 0130 


0143 


0167 


0180 
0193 
0217 
0234 
0234 


0236 
0248 


0250 
0252 


0253. 


0266 
0277 


0280. 


0281 
0288 


63040 


0304 
0317 
0330 


0355. 
0360 — 
0362 


0389 


0393 
0407 


0419 
0435 
0443 
0445 
0458 


0460 . 


0465 
0468 


0470 


0474 
0473 


0478 


0484 
0482 
0482 
0484 
0485 


0487 


0490 


0494 - 


0498 
0502 


ace i ged ‘ i : : : ; : ; 
a a @4 & é a & a £ @ a ] a ® a @ e e @ & eo @ 


ee 


jee fusiauas Purina ine. sv Wit 
ey oeeatemte | : : te : See eS! nee’ g raga ae begin ds ae : : 
: i eae : H : ; : H 5 H ‘ ie : aH i : 


i 
t 
4 
{ 


i 


IF PROCESS«TYPE EQL TYPEPROCESS THEN GO TO L4 &CEXE 
ELSE BEGIN WRITECDATAsNOTE6)3GO TO L2 END; 

BEGIN xxXitsOsxxQta” "3 
LMEMCTLISWRITECDATAsNOTE100T125G0 TO Le ENDS 
BEGIN ARRAY XCO89)3 READ 


Pate a So UREADCV1sX29 


WRITECDATAs axle) )3 GO TO L2 ENDS 
BEGIN POINTER SPoXP3 *% DSTACK 


REAL NS ARRAY xt01873 


- XPPSPOINTERCX)3 SP§SPOINTERCSTACKCOs#3)3 


CHREBNT=83 . 

eee N LSS STACKPOSITION 0O 

-BEGIN REPLACE XP BY " " FOR 723 

REPLACE CP BY SP4N FOR 43 
REPLACE XP BY N#2000 FOR 4 DIGITS; 
REPLACE xPp+6 BY SP4+N41 FOR CHR@43 
NtaNnecHR3 
WRITECDATAs 9eXEw)) ENDS 
MBITECDATAGNOYE9 300 TO L2 END OSTACK3 


BEGIN RisXsevis & MODELD 
—LOSVERSATOMUNDEFSTLSs33T2t27 39503 


READCOATASFisVisTisT2eT3eV2eV3I90Ps JUNK IS 
IF ViszATOMUNDEF THEN GO TO 123 


NAGMATOV AL ETL PST LRT 2014 E384 8T3C 185384) 


ASGNCVisXsATCT1993G0 TO L6 ENDS 


BEGIN P2sENVESPMAKECTYPECONSs0)3 SPARSE 


ASGNCTOKENC 1018) sENVeNULLIST)3 


— ASGNCTOKENCIOL9) 2ENVSATODS 


ASGNCTOKEN( 1006) 2ENVsCONSCUSERS (V2) sCONSCV2»NULLIST)) 93 


PROCESS P=CREATECNULLIST#ENVs TOKEN(C 1005) eCONSCATC 262144) »NULLIST? 93 


ASGNCAT6+PROCESS»ATOMUNDEF )3 _— 
ASGNCAT3+PROCESSsCONSCVIsCONSCTOKENC L179 sNULLIST)))3 
ASGNCAT7»PROCESS»NULLIST)3 

RESUMECPROCESS)3 INTERPS 

IF APLI THEN 


BEGIN TLIS"PRCS"SV198XX1,A00R3 


f's373G60 TO L3 ENDS” 
VitaxxX 1 END PARSE 


BEGIN PLJWHILE PRIORITY, ADDR GTR O DO JUNKSSUQsSX TRANS 


ASGNCAT3»V 1» CONS (CONS (TOKEN( 143) sNULLIST)»CONS( 
CONSCTOKENCLL7) »sNULLIST)sNULLIST)))3 

ASGNCAT7#VISNULLIST)SASGNCATS Vi» TOKENC 1017903 
RESUME CVS )3 

—INTERP3 


VLESREE CAT 12 REF CATGOXX1) 95 


IF APLY THEN 
BEGIN Tita*LIST*sViseV1, ADDR: 
11830560. TO.L3 END END TRANS 3 


BEGIN TRACEtSNOT TRACES GO TO L2 ENDSS%TRACE 
BEGIN PRINTCHASHI3GO0 TO L2 ENDS %HASH 


BEGIN INTERPIVLSSXXIFENDSRRSTART 
BEGIN APLIt#TRUEJ 183363 
ASGN(TOKEN(S003) eLABTABsCONS(MAKECTYPELIST# V1) 


01247000 
01248000 
01249000 
01250000 
01252000 


START GF SEGMENT 
01253000 fT 0002 


4-4 ats 


0502 
0503 
0508 
0509 
0521 


KEKE Ke 


01254000 fF 0017 
56 IS 27 LONGs NEXT SEG 
01255000 r 0522 
START OF SEGMENT deat ketene 
01256000 Tt 0000 
01257000 Tf 0002 
01258000 T 0006 
01259000 T 0008 
01260000 7 0009 
01261000 T 00143 
04262000 ry 0018 
— 01263000 Tt 0022 
01264000 T 0030 
01265000 tT 0032 
01266000 T 0038 
57 1S 47 LONGs NEXT SEG 
01267000 T 0523 
01268000 7 0536 
01269000 T 0538 
01270000 T 0555 
04271000 tT 0557 
01272000 T 0564 
01273000 T 0564 
01274000 T 0587 
01275000 rt 0589 
01276000 T 0594 
01277000 T 0595 
01278000 T 0598 
01279000 T 0600 
01280000 T 0603 
01261000 T 0604 
01281010 T 0605 
01281020 T 0606 
01281030 7 0608 
01282000 7 0612 
01283000 7 0643 
01284000 T 0628 
01284001 Tt 0631 
. 01284050 7 0634 
01284060 7 0637 
01285000 T 0637 
01286000 7 0638 
01286010 T 0646 
01286020 T 0640 
01286030 T 0643 
01287000 T 0646 
01288000 T 0648 
01288010 r 0650 
01288020 T 0652 
01288030 T 0653 


56 


53 


ST 


i 


— 


tiness Farris, ing s- 


e@ee4ne0ne5ue38ee 
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CONS CMAKECTYPEAREAsV2)sNULLIST) 393 
APLENVIESPMAKECTYPECONS20)3 GO TO L3 ENDS %APL 
BEGIN XX12mi3LMEMCTIDSAPLISSFALSES 
WRITECDATAsNOTESST193G0 TO L2 ENDS &% LSTRT 
ENO CASE STATEMENT! 


LSAWRITECDATAsF2sTYPEARRAYEVI, eTYPEJ2V1,ADDR)3 


GO TO Las 


LENDTEND DEBUGS 


PROCEDURE DOTRACECPROCESS)SVALUE PROCESSSREAL PROCESSS 


BEGIN PRINTCPROCESS)) 


PRINTCREFCAT3*PROCESS))3 


PRINTCREF CAT4sPROCESS) 3 


PRINTCREF CAT? *sPROCESS) END DOTRACES 


PROCEDURE MASGNCAsVISVALUE AsVSREAL AeV3 


BEGIN IF BOOLEANCA) THEN 


MEMORYCALIBS9IsALOIDIIeCA22t23)} fav ELSE 


MEMORYCA,L1899]2A,0919I) 645823] %a¥ END MASGNS 


PROCEDURE PRINTCX)SVALUE XSREAL X3 


BEGIN REAL IS) 


LABEL LieL23 


FORMAT FAC ET Ads T6)s 


F2CK3sAA a Tho te" sp Aba lO)s 


F3CKIe TGs "Sts Ade 16)» 


FOCXSs Tae" eNIL ys 


— WRETECDATAs Fie TYPEARRAYEX,TYPE)> X,ADOR)} 


CASE XeTYPE OF BEGIN 
} GARBAGE 


 KLIEBEGIN XtaMCx]3 SCONS 

WHILE X NEQ NULLIST 00 

BEGIN. WRITECDATAsP2sTYPEARRAYECARCX)eTYPEJs CARCX) + ADDR» 

_ TYREARRAYECARCCX#sCORCKX))9, TYPE @CARCX),ADDR)3 
XPsCOR(CXIEND END? 


BEGIN f8313 WHILE X NEQ@ NULLIST OO &LIST 


BEGIN. NRITECDATAsE 39s TYPEARRAYECAR(X) «TYPED CARCX, ADDR)3 
US mTetaxtscoRex) ENDS 

— WRITECDATASF4 ENDS 

L2UFOR yte0Q STEP 4 her : 


CxX},ADDR 00 AREA 
WRITECDATAsF 39 Te TYPEARRAY(MEX"I Jo TYPE) eMCX"1]¢ADDR)3 


SSF IELD 


01288035 7 0656 
01288040 T 0658 
01288050 7 0662 
01288060 T 0666 
01289000 tT Q675 
START OF SEGMENT xewtttntae 
58 18 43 LONGs NEXT SEG | 
01290000 y~ 0678 
01291000 T 06864 
01292000 T 0686 
53 18 698 LONG» NEXT SEG 
01293000 T 0124 
01294000 Tf. O124 
01295000 T 0124 
01296000 Tr 0126 
01297000 tr 0127 
04298000 fT 0129 
01299000 fr 0129 
01300000 rt 0130 
04301000 7 0435 
01302000 T 0140 
01303000 T 01406 
START OF SEGMENT «exter eees 
04304000 TY 0000 
. 01308000 T 0000 
START OF SEGMENT weettwewne 
01306000 T 0000 
01307000 r 0000 
04308000 7 .0000 
60 IS 29 LONGs NEXT SEG 
01309000 T 00006 
01310000 fr 00134 
01311000 T OQt2 
01312000 rf 0012. 
01313000 tT 90020 
01314000 7 0022 
01315000 7 0032 
01316000 fT O04; 
01317000 fr 0043 
01318000 Tt 0046 
01319000 T 0060 
01320000 7 0063 
01321000 tT 0066 
01322000 T 0077 
01323000 r O109 


53 


ay 


59 


rT ie ea 


59 


i 


i 


i Sseaceaearana Me hs ; Bae : Sale Hy : : . i } : : j : Hl : : 
i Faerie ee | ‘ ? : i i i x : i i i : 


s%SYMBOL 
S%LOGIC 
SELLING 


~GO_TO Las SPROCESS 


GO TO L2t %MONITOR 
GO TO L2s3GENERAL 


END CASE STATEMENTS 


END PRINT} 


PROCEDURE APLPNTCX)3SVALUE X3REAL X3 
dihd di REAL ISFORMAT FICX2sR1205)9F26A4,16)3 


Ts=03 | 
IF X,TYPE €QL TYPELIST THEN BEGIN 


| WHILE X NEQ NULLIST 00 BEGIN 


IF NBRCCAR(X)) THEN 
BEGIN IF I MOD 4 EQL 3 THEN WRITECDATASF LsDACCAR(X))) 
ELSE WRITECDATALSTOPI+FLsDACCARCX))23 
Ttal#is3XtacDR(x) END ELSE BEGIN 
WRITECDATAsF2s TYPEARRAYLX «TYPE J 9X ADDR)3 
XPSNULLIST END ENDSWRITE (DATA) END 

ELSE IF NBRCX) THEN WRITECDATAsFisDACX)) 


ELSE WRITECDATASF2sTYPEARRAYEX.sTYPEJsX,ADDR) ENDS 


PROCEDURE SYSM} 


BEGIN FORMAT FiCSuU)s 


NOTE LO"SYSTEM?™ D2 


NOTE2("INVALIO OPERATION"), 
NOTE3C"CANDE?")3 


ARRAY XCOM4IZ INTEGER I3 
. DEFINE LAPKLODAMELIOXE2T XC IIx CAI ES 
 GABEL LaeL2sk3-eLEND3 
- -LASTUSEDSPACES OF CURROWSS © 3 
. NEXTTOKENtSTOKENC2000)3 
TRACE RSF ALSES 


CPi mPOINTER( JUNKARRAY D473 


_HASHEsPMAKE(TYPEAREASAT(127) 93 
FOR BtaATt STEP 1 UNTIL ATC127900 ASGNCY*eHASHsNULLIST DS 


STACKPOSITIONES83 | 


— MASGN CO*LINKTONTLIS 


LABTABSSPMAKE(TYPECONS#0)3 
INQCHASH)3 


01324000 Tt 0109 
01325000 7 0109 
01326000 rT 0409 
01327000 T 0109 
01328000 r 0109 
01329000 T 0116 
01330000 fT 0110 

START OF SEGMENT wextdkweae 

61 18 11 LONGs NEXT SEG 
. 01331000 T O110 

59 1S 113 LONGs NEXT SEG 
01331010 ft 0146 
01331015 T O140 


START OF SEGMENT sxauwataten 


START OF SEGMENT wee ektanns 


63 18 


62 18 


START OF SEGMENT 
START OF SEGMENT 


65 18 


01338000 


01347000 


10 LONG» 
01331020 T 
01331025 
01331030 
01331035 
01331040 
01331045 
01331050 
01331060 
01331065 
01331070 
01331075 

88 LONG, 


ee 


01332000 7 
01333000 7 


01334000 7 
01335000 1 
01336000 Tf 

19 LONGs 
01337000 


01339000 
01340000 
01341000 
01342000 
01343000 
01344000 
01345000 
01346000 


01348000 
013490900 


ee ee 


NEXT SEG 
0000 
0000 
0002 
0004 
0013 
0021 
0035 
0038 
0050 
0055 
0068 

NEXT SEG 


0140 
0140 


EERE ETEK 
KARE 


0000 
0000 
0000 
NEXT SEG 
0000 
0004. 
0004 
0001 
0003 
0004 
0008 
0008 
00106 
0018 
0018 
0019 
0021 


61 


59 


62 


ee 


64 
65 


64 


@ as s 


. 5 - eae ‘ung 
SG Myelin ala Caves pei. fe Peaek 
: : : : H ! Aaa : i : : : 


ENTLY? 
DEBUG 
LENDSEND SYSM3 


REAL PROCEDURE USERSCF)3 


Bhai Pc atecap stteaplndicpertltetiomcen ype, RON GEOR 
: BEGIN. REAL XeX%i 


USERSS=INLEXCR) 
END OF USERS} 


i 


REAL PROCEDURE USERL{(X)3 

REAL x3 

BEGIN. 

IF CUSERLSsREFCXsLABTAB)) EQL ATOMUNDEF THEN 
ARS NL EA EAR T APSA USER LTS GONSC APONUNDEFANUGLIST) 131 
ENO OF USERLS | 


REAL PROCEDURE PSCANCIJsXsF)SREAL XeFZSINTEGER Iy3 
BEGIN OWN REAL ARRAY S8(0181133 


REAL ¥3 

PROCEDURE ERRS 

BEGIN 

FORMAT FLCX32"ARG MISSING')3 


—WRITECDATA®F4) ENDS 


REAL PROCEDURE QTCX)SVALUE XSREAL XS 

IF REF CXs+LABTAB) NEQ ATOMUNDEF THEN BEGIN 

IF CXPSUSERLOX)) EQL TOKENC1007) THEN 
_ OTERCONS CTOKENC 122)» CONS(QTCUSERS(F) 2 sNULLIST)) 
ELSE arisx END ELSE QTisx3 


f 
t 
} 
t 
i 
i 
4 
t 
| 
| 


REAL PROCEDURE FSCANCX*YePISVALUE X3 REAL Xe Yori 
BEGIN REAL FSTK»FLsFNS 


01350000 fT 0022 
01358000 7 0027 
01361000 T 0027 

64 1S 33 LONG, NEXT SEG 


01362000 T 0140 
01363000 T O140 
01364000 T 0140 
START OF SEGMENT «wketeewws 
01365000 T 0000 


01366000 T 0000 © 


66 18 8 LONG» NEXT SEG 


01367000 
01368000 
01369000 
01370000 
01371000 
01372000 


0140 
0140 
0140 
0140 
0142 
0145 


44aHass 


01373000 tr O147 
01374000 T O147 
START OF SEGMENT wewktiwiew 
01375000 tT 0002 
01376000 T 0002 
01377000 7 0002 
01378000 T 0002 
START OF SEGMENT saute ene 
START OF SEGMENT «exttwatan 
69 15S 6 LONGs NEXT SEG 
01379000 tT 0000 _ 
68 18 . & LONGs NEXT SEG 


04380000 
01381000 
01382000 
01383000. 
01384000 


0002 
0002 
0005 
0007 
0014 


4-41 4 


01385000 Tt 0017 
01386000 rT 0017 
START OF SEGMENT waxtwwadew 


66 


67 


68 


69 
68 


bg 


70 


rr er er er ee ee ee re Se ee Se” i i” i ar 


eee0oenees 


@eereeeeeeeeee ee. 


LABEL Lishe2eL asl aol Sel OelL ENDS 

FSTK taNULLIST3 

Lit tf Y NE@ $$f90] THEN BEGIN FSCANtSy3 GO TO LEND ENDS 
FUSBFNESCONSCXeNULLIST 3. 

Lat IF ¢(XtsUSERSCF)) EQL SSL4)] THEN 

BEGIN x#sATOMUNDEFS GO TO 44 ENOS ZOUMMY ARG 

IF X E@l SSCL) THEN 


BEGIN XtsATOMUNDEFA GO TO LS ENDS & DUMMY ARG LIST 


LOEXSmOTCKDE 


AF C¥r2uSeRS¢r)) E@L S804] THEN ; 
L4t BEGIN ASGN CATOMCDRsFNs (FNS *CONSCXsNULLIST) 93 


GO TO 12 ENDS % COMMA 


IF Y EOL SS€1) THEN 


BEGIN ASGN CATOMCDReFNsCONS(XeNULLIST) 3 


LSEXtsKNt ak t3 
IF CARCFSTK) EQL ATOMUNDEF THEN 


BEGIN YrsuSERSCF)sGO TO LL END 


} FLFSCARCESTK)S FSTKESCORCFSTKIE 


PNESCARCF STK)... 
FSTKESCORCESTK D3 


60 TO L6 ENDS % RPAREN 


IF X EQL Q@TCSS£8]) THEN 


BEGIN xteUSERL(Y)2 GO TO L6 ENDS % LABEL 
FSTKESCONSCFNeFSTK DS 


—FSTKESCONSCR Lo F STK QS 
60 TO L 13 
LENDEt END OF FSCAN; 


REAL PROCEDURE SSCANCF)3 
REAL PS. a 
BEGIN REAL KeYaZeSheS23 


LABEL. LipL2al3eLasbSeLEND» 


6 
SSCANt= 715 CONS CATOMUNDEF »NULLIST 93 
GQ TO 


L13 
_ L3OFZtacONSCATOMUNDEF sNULLIST)3 


L2tLit TF CXPaUSERSCF)) EOL ar teo) OR x EQL S$SciJ) THEN 
LO'BEGIN 


GO TO LEND END &% END 


ELSE L853 IF X FOL SSCS) THEN 
GO TO Lis *% SEMICOLON 

IF (¥ESUSERSC(F)) EQ@L SSC6) THEN 
BEGIN FQLISTCUSERL(X)sZ)3 


GO TO L1 END ¥ COLON 


ELSE ASGNCATOMCARs ZsFSCANCQTCX ) 2 YeF) 33 


IF ATOMCCAR(Z)) THEN BEGIN ERRIGO TO L2 END} 
IF (x#s¥) EQL SSC5)] THEN 


BEGIN ASGNCATOMCDR»sZs(ZESCONSCATOMUNDEPsNULLIST) 993 


GO TO 2 ENB % NO SUCCESSOR GIVEN 
SIF X EQL $$t10) THEN GO TO L6 
3 OIF X EQL S$) THEN GO TO LEND. 


ELSE ASGNCATOMCORs Zs CONSCATOMUNDEF sNULLIST) )3 EQLISTCREFCATOsZ) sUSERL¢ 


X83 


01387000 
01388000 
01389000 
01390000 
01391000 
01392000 
01393000 
01394000 
01395000 
01396000 
0413970006 
04398000 
01399000 
01400000 
01401000 
01402000 © 
01403000. 
01404000 
03405000 
01406000 
04407000 
01408000 
04409000 
01410000 
01411000 
01412000 
01413000 
70 1S 47 LONGs 


01414000 T 
01415000 fT 
01416000 7 


OE at tt se tt 


0000 
0000 
0000 
0003 
0005 
0008 
0010 
0011 


0012 


0014 
001? 
0020 
0024 
0022 
0024 
0026 
0027 
0030 
0032 
0034 
003% 
00358 
0037 
0040 
0044 
0043 
0043 
NEXT SEG 


0017 
0017 
0017 


START OF SEGMENT weet htetae 


01417000 
01418000 
01419000 
01420000 
(01421000 
01422000 
01423000 
01424000 
01425000 
01426000 
01427000 
01428000 
01429000 
01430000 
01431000 
01432000 
01433000 
01434000 
01435000 
01436000 
01437000 


a at a ht tt tt te 


0000 
0000 
0002 
0002 
0004 
0008 
0009 
0009 
0014 
0014 
0043 
0015 
0016 
0020 
0027 
0028 
0034 
0032 
0033 
0034 
0038 


74 


: Moore Busines: Dorms, ingly s402i 
: + a f bcos hy ! pany ' Bey 
re i eae : i bes 


G8 TO L133 % SURGES S08 GIVEN 


LENO? END OF SSCAN3 


PROCEDURE LOS$$ BEGIN INTEGER IsJeKakK} REAL STK3 


Fibh Shs) NETH TED ONNaNDmemRTerGteruny rT ten yma mNTeren) 


‘Rtazneereo) ror Jta0 STEP. 4 UNTIL 4 00 
BEGIN STKESQULLISTS 
FOR Y%=sKkK STEP { UNTIL K DO 


_ STK ERCONSCMAKECTYPELOGICsSSCI])»STK)3 


SSCJ#1 01 taHANGONCSTKe STK) 3 
KimOsKK2s3 ENDS 
FILL SSC#)] WITH "CMe, "EM, rapes We stat stan, tye 3 


FOR 2450 STEP 4 UNTIL 8 sat 


BEGIN KtsLOADMODECSS(1392) 
STKISCONSCNAKECTYPELOGICsSSE11)*#NULLIST)3 


. SSETIS#HANGONCSTK*STK) ENDS 


—K ts OADMODEC #568) 
END OF LOSS} 


LOSS3 
_ CASE IJ OF BEGIN 


— -PSCANSSSSCANCF)3 


TF CYPROTCUSERSCF))) EQL $st0} 
_ THEN BEGIN PSCANS#SSCANCF)3 
Xt= USERSCF) END ELSE 
BEGIN Xs# USERS(F IS PSCANISCONSCFSCANCYsXeF ) eNULLIST) 
END. ENO. END nue PSCANS 


ATOM*LOGICCONN 
ATA taLOGICc1) 3 


AT2¢=LOGICc¢2)3. 


AT3teLOGiIc¢3)) 
ATarsLOGIccads 


ATS Pel OGIC(5S)3 


— ATOtsLOGICC6)3 
ATT USL OGICC7s 


TKNOESMAKECTYPETOKENSO) A 
RCLISMAKECTYPECODE? 193 


71 18 


01438000 
01439000 


T 
T 


0039 
0039 


44 LONGs NEXT Seg 


01440000 


T 


0017 


START OF SEGMENT eeweteweae 


START OF SEGMENT «eet keene - 
73 78° 


01441000 


T 


0000 


10 LONG», NEXT Seq 


01442000 
01443000 
01444000 
01445000 
01446000 
01447000 
01448000 


START OF SEGMENT 


74 1S 


72 1S 


01449000 
01450000 
01451000 
01452000 
01453000 
01454000 


43 LONG 


01455000 


01456000. 
01457000. 
01458000 


01459000 
01460000 


01461000. 


01462000 


START OF SEGMENT 


75 1S 
67 18 


43 LONG, NEXT SEQ 


01463000 


01464000 


01465000. 


01466000 


01467000 
01468000 


01469000 
01470000 
01471000 
01472000 


4444444 


0004 
0004 
0004 
0006 
O011 
0013 
0047 


ee ee ee ed 


9 LONGs NEXT SEG 


4+ 


y AH 


} At tt 


0019 
0020 
0026 
0029 
0033 
0033 
NEXT SEG 


0017 |. 
0019 
0019. 
0022 
00285 
0028 
0029 
0034 


eee HE 


2 LONG, NEXT SEG 


eee ee ee ee ee es ee ae 


O147 
O1a9 
O1S4 
0153 
0155 
0156 
018 
0160 


0162 


0363 


67 


74 
72 


75 


67 


_ 


5 og 


eee 


i 


Ari Pe AGS ES 2 eh ate Sw Paige 
ae ce : : f oe i See ot Be ae : ae : : : : : 
i ! eee : z pass : i : + ‘ 


~ NUMBER. OF ERRORS: DETECTED = 04 
PRT SIZE = 264s TOTAL SEGMENT SIZE ae 


ESTIMATED AUXILIARY MEMORY REQUIRED ® 
NUMBER OF CARD*IMAGES PROCESSED = 


_ LABEL 900000000L INE 


RCOURMAKECTYPECODES9)3 
ATOMUNDEF EaMAKECTYPESYMB4420)"13 
LINKTONIL $@MAKECTYPELINK #1203913 
NULL ISTs @MAKECTYPELIST4120)9143 
FILL SYSMARRAYC#) WITH. "END's "DEBUG" 


a es ee ee . 76 18 
FILL PROCESSARRAYE®)] WITH "END s "ASGN S*REF s9QQ% es "UQMENCAR 2 


MCORM A" CONS*s PNEWSYM% s MAMTSPYs "MAKE TS "PRINT > 
"LOMODEs "GCL" s"INTERP™s "LABEL" s "NODES"» 

USERS Ts "SMEMMs"L MEM" s"PSCAN s "BNE TRE," INCODE™s"QDUMP"» 

"DUMP sy "PERROR' s ®MAASGN » QASGN's "MTs "QO" e"EXE™,"CEXE™ STL OAD» 
MREAD™ »"DSTACK™s "MODELD" p "PARSE" » "TRANS" "TRACE" "HASH" s"RSTART", 
MAPLE HPARL D3 


FILL TYPEARRAYE#] WITH "GRAG’s"CONS"se"LISTs "AREA", 
OBITS s"SYMBMs"LGIC™» "LINK"» 


"PROS", "MNTR%s "GNRL%s "CODE" 
"TPL2","TPLS*SMTPLA, "TP ASS 


2 78 IS 
— SYSMS 
ENO END. Progra 
21s 
1 1s 
92 1S 


COMPILATION TIME = 247 SECONDS. 
4578 WORDSS DISK SIZE = 270 SEGS NG» PGM,. SEGS = 92 


ESTIMATED CORE STORAGE REQUIRED = 10003 WORDS, 


0 WORDS,: 
1607+ 


OOL77L167COMPILE LISP/LISP XALGOL LIBRARY 


77 «18. 


01473000 
01474000 
01475000 
01476000 
01477000 


START oF SEGMENT 


START OF SEGMENT 


01479000 
01480000 
01484000 
01482000 
01483000 
01483010 


ee | 


0165 
0167 
0170 
0172 
0175 


RENNER D 


2 LONG» NEXT Seg 
01478000 tT 0177 


eUEKEKEH ES 


ee | 


43 LONG» 


01484000 


01485000 
01486000 
01487000 


T 


T 
T 


T 


16 LONG. 


04488000 
01489000 


T 
T 


4184 LONGs 
‘2 LONGs 
69 LONG» 


XALGOL /LISP 


Q179 
0179 
0179 
0179 
0179 
0179 


NEXT SEG 


0179 


START OF SEGMENT a¥kettatns 


0180 
0180 
0480 
NEXT SEG 
0380. 
0184 
NEXT SEG 
NEXT SEG 
NEXT SEG 


76 


a. 


77 


78 


oor 
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